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Data  Management  Subsystem 
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Tabic  1.  COP  Entry  Points  (Part  1  of  2) 


ENTRY  POINT 
NAME 

ARGUMENTS 

|  CLEANP 

(none) 

CLZIDS 

(none) 

DIRECT 

(none) 

DLETE 

Record  Type  Name 

ERPRIN 

(none) 

HDFND 

BCD  reference  Code,  CLASS 
value,  SIDE  value.  Record 
Type  Name 

HDPUT 

BCD  reference  Code,  CLASS 
value,  SIDE  value.  Record 
Type  Name 

HEAD 

Chain  Name 

|  INPRIN 

(none) 

INSDEL 

(none) 

INSFLS 

(none) 

INSGET 

Array  to  contain  output. 
Index  of  first  Item  to 
retrieve,  Number  of  Items 
to  retrieve 

INSPOT 

Array  which  contains  items 
to  be  inserted,  Index  to 
Input  table  (should  be  set 
to  start  point  minus  one, 
will  be  returned  as  end 
point).  Number  of  ltams  to 
add 

1  LGPRIN 

(none) 

15 

DESCRIPTION 

IDS  Buffer  Flush  (.QFLSH) 

Close  IDS  Pile 

Retrieves  array  IDS  record 
based  on  its  binary  refer¬ 
ence  code  stored  in  common 
CIO 

Deletes  current  record  of 
type  named 

Process  input  line  for  error 
message 

Finds  BCD  reference  code, 
given  values  for  CLASS, 

SIDE  and/or  Record  Type 

Adds  New  Header  of  Type 
named  with  given  values  for 
CLASS  and  SIDE 

Retrieves  master  of  chain 
named 

Process  Input  line  normally 

Deletes  all  Input  tables 

Assures  that  any  additions 
to  Input  tables  are  recorded 

Obtains  input  Instructions 
from  Input  tables 


Inserts  items  in  input 
tables 


Process  input  line  from  long 
string 


Table  1.  (Pert  2  of  2) 


ENTRY  POINT 
NAME 

ARGUMENTS 

MODFY 

Record  Type  Name 

NEXTTT 

Chain  Name 

OPNIDS 

(none) 

RETRY 

Record  T^pe  Name 

DESCRIPTION 

ttodifi.es  current  record  of 
type  named  to  reflect  cur¬ 
rent  values  in  conmon 

Retrieves  next  record  of 
chain  named 

Opens  IDS  file 

Retrieve  record  of  type 
named  (should  be  used  only 
for  primary  or  CALC  records) 

Store  new  record  of  type 
named 


STORE 


Record  Type  Name 


Table  3.  Instruction  Code  Bit  Configuration 


BITS 

29-32 


33- 35 

33 

34- 35 


DESCRIPTION 

General  Instruction  code 
0  ■  Terminator  and  Operator  follows 

1  -  General  Item  Follows 

2  ■  Equals 

3  -  Greater  Than,  or  Greater  Than  or  Equal  To 

4  “  Less  Than,  or  Less  Than  or  Equal  To 

5  -  Logical  Operations 

6  -  Loads  or  Stores 

7  -  Adds  or  Subtracts 

8  ■  Multiplies  or  Divides 

9  “  Powers 

For  general  Instruction  code  »  0,  1,  or  5: 
Particular  Code  Discriminator 

For  general  instruction  code  ■>  3,  4,  6,  7,  or  8: 
Second  Code  Discriminator 
0  -  First  operation  shown  above 
1  ■  Second  operation  shown  above 

Value  Type  Discriminator 

1  -  Alphabetic  value 

2  -  Numeric  value 

3  -  Internal  variable 
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Table  4.  Input  Instruction  Formats  (Fart  1  of  3) 


ASSAY 

NUMBER 


I 


I 


I 

I+i 


I 

1+1 

1+2 

1+3 

1+4 

1+5 

1+6 


I 

1+1 

1+2 

1+3 

1+4 

1+5 


I 

1+1 

1+2 

1+3 


I+(N-1) 

I+N 


DESCRIPTION 


End  of  Clause 


■'1',  instruction  code 

End  of  Phrase 

■' 2' ,  Instruction  code 

Operator  Follows 

»’3',  Instruction  code 
Operator  number 

LIKE  String  Follows  -  Alphabetic  Identifier 

■'ll',  instruction  code 
Identifier  attribute  address 
Identifier  attribute  number 
■ 1 9 1 ,  instruction  code 
■>'9',  Instruction  code 
First  half  of  identifying  value 
Second  half  of  identifying  value 

LIKE  String  Follows  -  Numeric  Identifier 

■'ll',  instruction  code 
Identifies  attribute  address 
Identifies  attribute  number 

■  '10',  instruction  code 

■  '10',  instruction  code 
Floating  point  identifying  value 

Long  String  Follows 

-'13',  instruction  code 
Number  of  characters  in  long  string 
First  six  characters  of  first  pair 
Second  six  characters  of  first  pair 


First  six  characters  of  last  pair 
Second  six  characters  of  last  pair 
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Table  8.  (Part  5  of  5) 


ARRAY 

NUMBER 

ARRAY 

VALUE 

DESCRIPTION 

86 

0 

87 

50* 

Load  Numeric 

88 

6 

Numeric  Is  an  attribute 

89 

157 

Attribute's  address  (SPDLO) 

JO 

141 

Attribute's  number  (SPDLO) 

91 

0 

No  OF  phrase 

92 

18* 

Set  equal  to  numeric 

93 

10 

Numeric  is  a  constant 

94 

900. 

Numeric  constant 

95 

2* 

End  of  phrase 

96 

1* 

End  of  clause 

♦Instruction  coda 


•  Record  Name  -  COBOL  name  for  Che  record 

a  Number  of  Recorda  -  Estimated  number  of  data  recorda  denoted 
by  the  record  block 

e  'Record  Length  -  Number  of  characters  requested  for  the  block 

e  Double  Line  -  Denotes  CALC  records 

Individual  record  blocks  are  connected  with  vectors  and  arrows  repre¬ 
senting  each  chain  relationship  In  the  file.  Beside  each  chain  vector, 
the  chain  name  Is  entered.  Below  each  chain  name  an  Indication  is 
given  to  describe  how  records  are  positioned  or  entered  in  the  chain. 
The  appropriate  entries  are;  ’F*  for  First,  'L’  for  Last,  'S'  for 
Sorted,  'B*  for  Before,  and  'A*  for  After. 

Organizationally,  the  QUICK  Integrated  data  base  may  be  divided  Into 
two  parts:  the  scenario  (or  gaming)  data  and  the  organization  data. 

2.4.1  Scenario  Data  Structure.  Figure  6  Is  a  picture  of  the  scenario 
data  structrue.  However,  as  this  structure  Is  quite  complex.  It  will 
be  divided  Into  four  parts  for  discussion  purposes.  The  figures  given 
for  the  subdivisions  are  incomplete  in  that  they  do  not  have  connected 
to  them  the  chains  which  interrelate  the  four  subdivisions. 

2.4.1. 1  Target  Data  Structure.  Figure  7  shows  the  target  data  organ¬ 
ization.  The  TARGET  record  is  the  central  record  type  of  the  data  base 
and  Is  a  CALC  record.  The  principal  hierarchy  Is  that  of  target  class 
header  (TGTHD)  target  type  (TARGTY)  and  individual  target  (TARGET). 
Targets  are  grouped  by  region  and  complex.  The  TARGXX  chain  links 
some  individual  target  records  to  additional  data.  In  one  case  the 
data  is  that  for  a  recovery  base  (RECBTG).  In  the  other  case  the  tar¬ 
get  Is  also  a  missile,  bomber,  or  tanker  base  (MSBMTG). 

Figure  7  also  shows  refuel  points  (REFPNT)  associated  with  their 
region. 

2.4. 1.2  Weapon  Data  Structure.  Figure  8  shows  the  weapon  data  struc¬ 
ture.  One  hierarchy  contains  the  weapon  class  (WEFHDX  weapon  type 
(WEAPON),  weapon  type  subdivided  by  payload  (WEFSUB)  and  the  individual 
weapon  base  (MSBMTG) .  There  Is  also  a  warhead  class  (WARHD)  with  war¬ 
head  type  as  details  (WRHEAD).  Weapons  are  connected  to  their  warheads 
via  a  payload  table  (PATTBL)  which  is  master  of  one  chain  containing 
all  weapon  subtypes  (WEFSUB)  which  utilize  that  table  and  another  chain 
which  contains  counts  (FYLDCT)  of  the  various  warhead  types. 

•*  •  ••••  e.  •  ,  «  ^ 

. . .  , 

Finally,  the  QUICK  system  creates  weapon  groups  (WEPNGP)  which  have  a 

payload  table  and  a  number  of  individual  bases  (MSBMTG).  These  groups 
are  also  assigned  a  geographic  region. 


Figure  6.  Scenario  Data  Structure 


Number  of  records  Is  scenario  dependent 


Figure  7.  Target  Data  Structure 
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country  codes  and  the  region  they  ere  In  (ASNCTY) .  These  records  are 
sorted  on  region  and  country  code.  Also  under  each  header,  ere  records 
(ASNCLS)  containing  the  values  for  CLASS  for  the  side.  Under  each  of 
these  records  are  all  the  TYPE  noose  that  belong  to  this  class  (ASNTYP) . 
The  countries  and  types  are  connected  vie  cooaon  ASNREC  records.  These 
records  contain  restrictions  based  on  Category  Code,  the  location  or 
owner  of  the  target,  and  either  its  name  or  else.  It  also  contains  the 
TASK  that  will  be  assigned  to  e  target  meeting  these  restrictions.  On 
the  other  chain  under  TYPE  are  the  alphabetic  portions  of  DESIG  to  be 
used  In  assigning  e  DESIG  to  the  target  (TYPDES).  Subsequent  DESIGs 
era  used  If  the  first  values  ere  already  used.  All  of  these  records 
with  the  sene  alphabetic  portion  of  DESIG  are  chained  together  under 
e  cooaon  record  (ASNDES)  containing  the  DESIG  and  the  number  In  each 
region. 


*  Humber  of  Records  Is  scenerlo  dependent. 


•  f 


*•••  •  •  • 


Figure  10.  Date  Organisation  Index 
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Ik 


★  Dumber  of  records  is  scenario  dependent. 

+  •  •  V  •  •  «••• 

Figure  11.  Assignment  Table 
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2. 4.2. 3  Miscsllaneoua  Organizational  Data.  Figure  12  shove  •  number 
of  smaller  data  organisations.  The  largest  of  these  is  the  syntax 
directory.  One  header  (SYNHD)  has  a  record  chained  to  it  for  eech 
verb  (SYNVBBX  The  other  header  (ADVHD)  has  a  record  chained  to  it  for 
each  adverb  (PRMADV) .  The  adverb  record  contains  data  which  describes 
the  clause  and  phrase  type.  If  the  phrase  type  is  'element1  the  adverb 
has  chained  to  it  records  describing  the  legal  elements  (ADVELM) . 

Finally  a  record  type  links  verbs  to  their  legal  adverbs  (SYNCLZ) . 

The  module  link  table  (MOD TAB)  is  a  single  record  which  is  on  no  chains. 
The  dictionary  is  a  hierarchy  with  the  header  (DCTHD),  tab  characters 
(DCTTAB)  and  words  with  that  tab  character  (DCTWRD) . 

The  display  table  hierarchy  is  the  header  (DISPHD),  the  individual  dis¬ 
play  name  (DISPRC)  and  the  elements  which  make  up  the  display  (DISPDT). 

Finally,  the  utility  table  (TABLEZ)  are  chained  to  their  header  (TABLST). 
Actually,  utility  tables  are  primary  records  which  the  using  routines 
create  and  maintain  as  additional  storage  areas.  The  header  exists  to 
assure  that  all  utility  tables  may  be  deleted  once  they  are  no  longer 
needed. 

2.4.3  Data  Base  Record  Content.  Previous  subsections  defined  QUICK* 
IDS  structure.  This  subsection  gives  the  definition  of  what  words  or 
attributes  are  contained  within  each  data  record. 

2.4.3. 1  Primary  Records.  Primary  records,  called  headers,  are  used 
as  data  base  entry  points.  These  headers  are  identified  through  a 
value  for  the  attribute  CLASS  plus,  in  most  cases,  a  value  for  the 
attribute  SIDE.  A  list  of  all  QUICK  data  base  headers  appear  in  table 
9  along  with  the  header's  record  type  number,  what  attributes  need  to 
be  set  and  a  list  of  allowable  CLASS  values  for  each  header. 

2.4.3. 2  Secondary  Records.  The  remainder  of  the  record  types  are 
secondary  records  (the  TARGET  record  is  a  CALC  record).  Each  secondary 
record  is  a  collection  of  attributes  and/or  internally  used  values 
(table  10). 

A  list  of  QUICK  data  base  chains  appears  in  table  11.  All  chains  in 
the  data  base  structure  are  'linked  to  prior'  so  that  when  any  record 
type  is  deleted,  the  physical  file  space  it  occupies  is  released  for 
other  use.  Many  of  the  chains  are  also  'linked  to  master'  to  speed 
processing  when  a  subroutine  calls  entry  point  HEAD  for  those  chains 
(see  table  12). 


Tabic  9.  (Part  2  of  2) 


RECORD  TYPE 
NUMBER 

RECORD  TYPE 
NAME 

DESCRIPTION  (ATTRIBUTES') 

CUSS  VALUES 

14 

XNDTHD 

Data  Organization  Index 
Header  (CLASS)  (This  is 
a  CALC  record) 

INDEX 

15 

ASNTAB 

Aaaignment  Table  Header 
(CLASS, SIDE) 

ASSIGN 

16 

DCTHD 

Dictionary  Header 
(CLASS) 

DICTON 

17 

SYNHD 

Syntax  Directory  Verb 
Header  (CLASS) 

SYNTAX 

18 

ADVHD 

Syntax  Directory  Adverb 
Header  (CLASS) 

ADVERB 

19 

MODTAB 

Module  Link  Table 
(CLASS,  link  Table 
(100  words)) 

MODTAB 

20 

SMAT 

SMAT  Array  (CLASS) 

(This  la  a  CALC  record) 

SMAT 

21 

DISPHD 

REPORT  Module  Dlapley 
Header  (CLASS) 

DISPLY 

22 

NUMTBL 

General  Number  Table 
(CUSS) 

NUMBER 

23 

TABLST 

Utility  Table  Header 
(CUSS)  (This  la  a  CALC 
record) 

TABLST 

24 

ALCPRM 

ALOC  Control  Parameters 
(CLASS) 

ALCPRM 

47 
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Table  10.  Data  Base  Record  Types  -  Secondary  Recorde 
(Part  1  of  4) 


RECORD 

NUMBER 

TYPE 

NAME 

DESCRIPTION  <■  ATTRIBUTES') 

31 

TARGTY 

Target  Type  (CNTRYLOC,  CNTRYOWN ,  FLAG,  FVALT1, 
FVALT2 ,  FVALT3,  FVALT4,  FVALT5 ,  FVULN1,  NHRDCOMP, 
NTIMCOMP,  Tl,  T2 ,  T3,  T4,  T5,  TYPE,  VULN1  VULN2) 

32 

WEPNGP 

Weapon  Group  (ATTINC,  EXPASM,  GBASE.  GFRASM.  GLAT, 
GLONG,  GNWPNADJ ,  GNWPNS,  GNVEH,  GPKNAV,  GREFCODE, 
GREFTIME,  GROUP,  GSBL,  GSBLREAL,  GSTART,  GTYPE, 
GTYPREFC,  GYIELD,  IALERT,  IREG,  MAXSAL,  NFIXES, 

NSAL,  NSFIX,  NUMALOC) 

(GROUP  is  used  as  a  Match  Key) 

33 

SRTYTB 

Sortie  Table  (SDELAY,  SDEPEN,  SINDEXNQ,  SLAT,  SLONG, 
SLOW,  SLOW1,  SLOW2,  SLOW3,  SORTNO,  S REFUEL, 

SVEHNUM) 

34 

PENCRD 

Penetration  Corridor  (ATTRCO,  ATTRPRE1,  ATTRPRE2 , 
ATTRPRE3,  ATTRSU,  CORNUM,  DEFDIST1,  DEFDIST2, 
DEFDIST3,  DEFRAN,  HILOAT,  KORSTY,  NPRCRDEF ,  ORLAT, 
ORLONG) 

35 

DEPCRD 

Depenetration  Corridor  (CORNUM,  MYREC0V1,  MYRECOV2, 
MYREC0V3,  MYREC0V4) 

36 

COMPTG 

Complex  Target  (CNTRYLOC,  CNTRYOWN,  DESIG,  FLAG, 
FVALT1,  FVALT2,  FVALT3,  FVALT4,  FVALT5,  FVULN1, 

HAZ,  HAZ2,  HGZ,  HGZ2,  ICOMPL,  IDHOB ,  INDEXNO,  LAI, 
LONG,  MAXFRA,  MAXKILL,  MINK ILL,  MISDEF,  NAME, 
NHRDCOMP,  NTIMCCMP,  NTINT,  RADIUS,  TARDEFHI, 
TARDEFLO,  TASK,  TGTMULT,  TGTNUMB,  Tl,  T2,  T3,  T4, 

T5,  VALUE,  VOZ)  (ICOMPL  is  a  match-key) 

37 

FOOTEQ 

Footprint  Equation  (Contains  one  hundred  words 
which  are  module  defined) 

38 

RGION 

Region  (IREG,  COREL)  (IREG  is  a  match  key) 

39 

PAYTBL 

Payload  table  (PAYTBLNM) 

40 

•  •  •  • 

WRHEAD 
.  •  «  •  •  •  « 

Warhead  (CEPASM.  CPASMZRO,  FFRACX  NARE4f)EC, .  NCMSr  . 
•  NDEC0YS-,  “NWHDS ,‘  PAYALT',  PWjD*  RANGEASM,  RELASM, 
SPEEDASM,  TYPE,  YIELD) 
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RECORD 

NUMBER 

TYPE 

NAME 

DESCRIPTION  (ATTRIBUTES) 

41 

WEAPON 

Weapon  type  (ACTIVE,  ALTDLY,  BALC,  CEP,  CEPMIN, 
CMISS,  FUNCTI,  IPENMO,  IRECMO,  IREP,  LCHINT, 

MAXSAL,  naltdly,  NMPSIT,  pdes,  PFPF,  PINC,  PLABT, 
RRABT,  RANGE,  RANGEDEC,  RANGEREF,  REANG,  REL, 
RNGMIN,  SIMLUN,  SLOPE,  SPDLO,  SPEED,  TOFMIN,  TTOS, 
TYPE) 

42 

INDRCT 

Index  Record  Type  Record  (contains  record  type 
name  and  number) 

43 

INDATR 

Index  Attribute  Record  (ATTRIBN1,  ATTRIBN2, 
ATTRIBNO,  ATTRBTYP,  ATTRIBAD,  ATDEFALT,  ATTRNGHI, 
ATTRNGLO)  (ATTRIBN1  and  ATTRIBN2  are  match  keys) 

44 

INDMST 

Index  Master  Record  (CHAINNAM,  MASDETNM,  MASDETNO) 

45 

DCTTAB 

Dictionary  Tab- character  (TAB CHAR)  (TABCHAR  Is  a 
match  key) 

46 

SYNVRB 

Syntax  Verb  ( CLAUSE SW,  VERBVAL)  (VERBVAL  Is  a 
mateky  key) 

47 

PRMADV 

Syntax  Adverb  (ADVERBVL,  CLAUSETY,  PHRASETY) 

( ADVERB VL  Is  a  match  key) 

48 

TABLE Z 

Utility  Table  (contains  100  vords  which  are  module 
defined) 

49 

INDDET 

Index  Detail  Record  (CHAINNAM,  MASDETNM,  MASDETNO) 

50 

SRTEVA 

Sortie  Event  Type  A  (LAI,  LONG,  SCUMSURV,  SCHANGE, 
SDAMEXP,  SDELTIME,  SEVCODE,  SLOCATTR,  SPLACE) 

51 

ASNCLS 

Assignment  Table  Class  (ACLASS) 

52 

D  IS  PRC 

Display  Record  ClDISPNAMl,  DISPNAM2) 

53 

SRTEVB 

Sortie  Event  Type  B  (Same  attributes  as  record 
number  50) 

‘  *  61 

TARGET 

Target  (BENO,  CATCODE,  DESIG,  HAZ,  HAZ2,  HGZ,  HGZ2, 

ICOMPL,  IDHOB,  IGIW,  INDEXNO,  IREG,  KITE,  LAT, 

LONG,  MAJOR,  MAXFRA,  MARK  ILL,  MINK  ILL,  MINOR, 

MISDEF,  NAME,  NTINT,  POP,  RADIOS,  SIDE,  TARDEFRI, 
TARDEFLO,  TASK,  TGTNUMB,  VALUE,  VOZ,  WACNO)  (Record 
is  «  CALC  record  -  randomized  on  DESIG) 
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Table  10.  (Part  3  of  4) 


t 


RECORD 

NUMBER. 

62 

TYPE 

PNCRLG 

DESCRIPTION  ( ATTRIBUTES ) 

Pena tT at ion  Corridor  Leg  (ATTRLE,  DOGLEG,  LAT, 

LONG) 

63 

DPCRL6 

Depenetration  Corridor  Leg  (DOGLEG,  LAT,  LONG) 

64 

TARCDE 

Target  Liat  Element  ( TGTNUMB , • TGTREFCD ) 

65 

TPDIST 

Distance  from  Target  to  Penetration  Corridor 
(ATTRCD,  DISTANCE) 

66 

TDDIST 

Distance  from  Target  to  Depenetration  Corridor - 
(DISTANCE,  DISTDF) 

67 

RDDIST 

Distance  from  Recovery  Base  to  Depenetration 
Corridor  (DISTANCE) 

68 

WEPSUB 

Weapon  Subtype  (PAYTBLNM)  (PAYTBLNM  is  a  match  key) 

69 

PYLDCT 

Count  of  warhead  type  in  Payload  Table  (NUMLOAD) 

70 

ASSIGN 

Assignment  of  Weapon  Group  to  Target  (ARRIVE,  ASGHOB 
DGZLAT,  DGZLONG,  FIXED,  FLMULT,  FSALVO,  GROUP,  KORR, 
OFFLAT,  OFFLONG,  PEN,  RVAL,  TGTNUMB) 

71 

DCTWRD 

Dictionary  Word  (WORDSTR1,  WORDSTR2,  WORDTY,  WORDVL) 

72' 

SYNCLZ 

Links  Verbs  to  Adverbs  ( ADVERB VL,  VERBVAL) 

73 

ADVELM 

Gives  Legal  Elements  for  elemental  Adverbs  - 
(ELEMNTTY,  ELEMNTVL) 

74 

LINKER 

Links  Attributes  to  Record  Types  (ATTRIBN1,  ATTRIBN2 
ATTRIBAD,  ATTRBTYP,  contains  2  words  which  are  not 
attributes) 

75 

ALPHVL 

Legal  Values  for  'LIST'  Attributes  (ALPLSTVL) 

76 

INDHCS 

Stores  leader  reference  codes  (contains  header 
reference  code  (two  words),  and  the  associated 

CLASS  and  SIZE  values) 

77 

DISPDT 

Display  table  list  (contains  100  words  which  are 
created  by  REPORT) 

A 
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Table  10.  (Part  4  of  4) 


I 


RECORD 

NUMBER 

TYPE 

NAME 

78 

ASNCTY 

79 

ASNTYP 

80 

ASNDES 

91 

MSBMTG 

92 

RECBTG 

93 

REFPNT 

94 

ASNREC 

95 

TYPDES 

DESCRIPTION  (ATTRIBUTES 


Assignment  Table  country  (COUNTRY,  REGION) 
Assignment  Table  Type  (ATYPE) 

Assignment  Table  Desig  (DESIGA2,  K0UNT1,  K0UNT2, 
K0UNT3,  K0UNT4,  K0UNT5) 

Missile  Bomber  Target  (ADBLI,  ADBLR,  ALRTDB, 

ALRTDL,  GROUP,  IREFUEL,  NADBLI,  NADBLR,  NLRTDB, 
NLRTDL,  NOAIER,  NOINCO,  NOPERSQ,  NPRSQ1,  NPRSQ2, 
NPRSQ3,  NPRSQ4,  NUMDBL,  PAYTBLNM,  PKNAV,  VONBASE, 
WEPNAME)_ 

Recovery  base  (CAPACITY) 

Refuel  Point  (LAT,  LONG,  IREG) 

Assignment  Table  Category  (ASNTASK,  CATHI,  CATLO, 
CNFLG,  MZNCAF 

Assignment  Table  Type  DESIG  (DESIGA2,  FULL1,  FULL2, 
FULL3,  FULL4,  FULL5) 
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0 

Table 

11.  Data 

Base  Chains  (Part  1  of  4) 

CHAIN 

MASTER 

DETAIL 

NAME 

RECORD 

RECORD 

DESCRIPTION 

ADVADV 

ADVHD 

PRMADV 

Links  Adverb  Header  to  adverbs 

ADVERB* 

PRMADV 

SYNCLZ 

Links  adverb  to  link  to  verb 

AILINK* 

INDATR 

LINKER 

Links  Attribute  Record  to  link  to 
record  type 

ALCLAS 

ASNTAB 

ASNCLS 

Links  Assignment  table  header  to 
assigned  classes 

ALLDES 

ASNTAB 

ASNDES 

Links  Assignment  table  header  to 
assigned  DESIG 

ALTDES* 

ASNTYP 

TYPDES 

Links  Assigned  type  to  link  to  DESIGs 
for  that  type 

ALTYPE 

ASNCLS 

ASNTYP 

Links  Assigned  class  to  assigned  types 
in  that  class 

ASGWPN* 

TARCDE 

ASSIGN 

Links  target  to  fix  assignments  to  it 

ASNRNG* 

ASNCTY 

ASNREC 

Links  Assigned  country  to  category 
ranges  for  that  country 

ATRIB 

INDTHD 

INDATR 

Links  index  header  to  attribute  record 

CLAUSE 

SYNVRB 

SYNCLZ 

Links  verb  to  link  to  adverbs 

CMPTGT* 

CGMPTG 

TARGET 

Links  complex  to  targets  which  make  up 
the  complex 

COMPLX 

CMPHD 

COMPTG 

Links  complex  header  to  complexes 

CONTRY 

ASNTAB 

ASNCTY 

Links  assignment  table  header  to 
assigned  countries 

DEPCOR 

DPCHD 

DEPCRD 

Links  depenetration  corridor  header 
to  depenetration  corridors 

DEPDST* 

TARCDE 

TDDIST 

Links  target  to  distance  to  depenetra¬ 
tion  corridors 

DEPLEG 

DEPCRD 

DPCRLG 

Links  depenetration  corridors  to  its 
doglegs 

DESTYP* 

ASNDES 

TYPDES 

Links  assigned  DESIG  to  link  to  assigned 
type 

*  bEfDKfi* 

♦Linked  Co 

-  DEPCRD  •' 

master 

•RDDIST  > 

*  Links  depenetration  corridor  to  distance 
to  recovery  base 

52 


CH-3 


Table  11.  (Part  2  of  4) 


CHAIN 

NAME 

MASTER 

RECORD 

DETAIL 

RECORD 

DESCRIPTION 

DETOTG* 

DEPCRD 

TDDIST 

Links  depenetration  corridor  to  distance 
to  target 

DSPITM 

D IS PRC 

DISPDT 

Links  display  table  to  its  elements 

DSPLAY 

DISPHD 

DISPRC 

Links  display  header  to  display  tables 

ELEMNT 

PRMADV 

ADVELM 

Links  elemental  adverb  to  its  legal 
elements 

EQUATE 

PAYTBL 

FOOTEQ 

Links  footprint  equations  to  the  proper 
payload  table 

EVENT 

SRTYTB 

SRTEVA 

Links  sortie  table  to  event  type  A 
(weapon  event) 

EVENT 

SRTYTB 

SRTEVB 

Links  sortie  table  to  event  type  B 
(non-weapon  event) 

GRPREG 

RGION 

WEPNGP 

Links  region  to  weapon  groups  in  that 
region 

IALINK* 

INDRCT 

LINKER 

Links  record  type  to  link  to  attributes 

IRDET 

INDRCT 

INDDET 

Links  record  type  to  record  showing 
chains  of  which  it  is  a  detail 

IRMAST 

INDRCT 

INDMST 

Links  record  type  to  record  showing 
chains  of  which  it  is  master 

LISTXX  • 

TARNUM 

TARCDE 

Links  target  list  header  to  elements 
of  the  list 

METOTG* 

PENCRD 

TPDIST 

Links  penetration  corridor  to  distance 
to  target 

MYASGN* 

WEPNGP 

ASSIGN 

Links  weapon  group  to  fixed  assignments 

MY BASE* 

WEPSUB 

MSBMTG 

Links  weapon  subtype  to  missile/bomber 
targets  that  are  its  bases 

myevnt* 

ASSIGN 

'  SRTEVA 

Links  weapon  assignments  to  their  sortie 
event 

MYNAMZ* 

INDRCT 

INDHCS 

Links  record  type  for  headers  to  their 
reference  codes 

MYPAY 

PAYTBL 

PYLDCT 

Links  payload  table  to  warhead  type 

count 


*Linked  to  master 


Table  11.  (Part  3  of  4) 


CHAIN 

NAME 

MASTER 

RECORD 

DETAIL 

RECORD 

DESCRIPTION 

MYSQDN* 

WEPNGP 

MSBMTG 

Links  weapon  group  to  missile/bomber 
targets  which  provide  bases  for  the 
group 

MYSRTY* 

WEPNGP 

SRTYTB 

Links  weapon  group  to  its  sortie  tables 

NAMEZ 

INDTHD 

INDHCS 

Links  index  header  to  header  reference 
codes 

PAYTAB 

PAYHD 

PAYTBL 

Links  payload  table  header  to  payload 
tables 

PAYWEP* 

PAYTBL 

WEPSUB 

Links  payload  table  to  weapon  sub-type 
that  uses  it 

PENCOR 

PNCHD 

PENCRD 

Links  penetration  corridor  header  to 
penetration  corridors 

PENDST* 

TARCDE 

TPDIST 

Links  target  to  distance  to  penetration 
corridor 

PENLEG 

PENCRD 

PNCRLG 

Links  penetration  corridor  to  its  doglegs 

RCTYP 

INDTHD 

INDRCT 

Links  index  header  to  record  types 

RECDST* 

RECBTG 

RDDIST 

Links  recovery  base  to  distance  to  depene¬ 
tration  corridors 

RECOVB 

RCBHD 

RECBTG 

Links  recovery  base  header  to  recovery 
bases 

REFREG 

RGION 

REFPNT 

Links  region  to  refuel  points  in  the 
region 

REFUEL 

RFPTHD 

REFPNT 

Links  refuel  point  header  to  refuel 
points 

REGION 

REGHD 

RGION 

Links  region  header  to  regions 

SORTIE 

SRTYHD 

SRTYTB 

Links  sortie  header  to  sortie  tables 

TAB 

DCTHD 

DCTTAB 

Links  dictionary  header  to  its  tab 
characters 

TABXYZ 

TABLST 

TABLEZ 

Links  utility  table  header  to  utility 
tables 

TARGXX* 

TARGET 

MSBMTG 

Links  target  to  missile/bomber  target 
additional  data 

TARGXX* 

TARGET 

RECBTG 

Links  target  to  recovery  base  additional 
data 

♦Linked 

to  master 
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Table  11.  (Pa*t  4  of  4) 


CHAIN 

MASTER 

DETAIL 

NAME 

RECORD 

RECORD 

DESCRIPTION 

TGTREG* 

RGION 

TARGET 

Links  region  to  targets  in  region 

TGTTGT* 

TARGTY 

TARGET 

Links  target  type  to  targets  of  that 
type 

TGTTYP* 

TGTHD 

TARGTY 

Links  target  header  to  target  types 

TYPRNG 

ASNTYP 

ASNREC 

Links  assigned  type  to  category  range 
for  that  type 

VALIST 

INDATR 

ALPHVL 

Links  'list'  attribute  to  its  legal 
values 

VERB 

SYNHD 

SYNVRB 

Links  syntax  header  to  verbs 

WARHED* 

WARHD 

WRHEAD 

Links  warhead  header  to  warhead  types 

WEPGRP 

WPGPHD 

WEPNGP 

Links  weapon  group  header  to  weapon 
groups 

WEPNST 

WEAPON 

WEPSUB 

Links  weapon  type  to  weapon  subtype 

WEPPAY* 

WRHEAD 

PYLDCT 

Links  warhead  type  to  count  in  payload 
table 

WEPTYP 

WEPHD 

WEAPON 

Links  weapon  header  to  weapon  types 

WORD 

DCTTAB 

DCTWRD 

Links  tab  character  to  words  with  that 
tab 

WPINGP* 

PAYTABL 

WEPNGP 

Links  payload  table  to  weapon  groups 

using  that  table 

*Llnked  to  master 
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Table  12.  Chain*  Which  are  Linked  to  Master 


CHAIM  NAME 

MASTER  RECORD 

DETAIL  RECORD 

ADVERB 

PRMADV 

SYNCLZ 

AIL INK 

INDATR 

LINKER 

ALTDES 

ASNTYP 

TYPDES 

ASGWFN 

TARCDE 

ASSIGN 

ASNRNG 

ASNCTY 

ASNREC 

CMPTGT 

COMPTG 

TARGET 

DEPDST 

TARCDE 

TDD 1ST 

DETORE 

DEPCRD 

RDDIST 

DETOTG 

DEPCRD 

TDD 1ST 

DESTYP 

ASNDES 

TYPDES 

IALINK 

INDRCT 

LINKER 

METOGP 

PENCRD 

GPDIST 

METOTG 

PENCRD 

TPDIST 

MYASGN 

WEPNGP 

ASSIGN 

MTBASE 

WEPSUB 

MSBMTG 

MYEVNT 

ASSIGN 

SRTEVA 

MYNAMZ 

INDRCT 

INDHCS 

MYSQDN 

WEPNGP 

MSBMTG 

MYSRTY 

WEPNGP 

SRTYTB 

PAYWEP 

PAYTBL 

WEPSUB 

PENDST 

TARCDE 

TPDIST 

RECDST 

RECBTG 

RDDIST 

TARGXX 

TARGET 

MSBMTG 

TARGXX 

TARGET 

RECBTG 

TGTREG 

RGION 

TARGET 

TGTTYP 

TARGTY 

TARGET 

TGTTGT 

TARGTY 

TARGET 

WARHED 

WARHD 

WRHEAD 

WEPPAY 

WRHEAD 

PYLDCT 

WPINGP 

PAYTBL 

WEPNGP 
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Table  14.  Internal  COP  Common  Block 


BLOCK  ARRAY  OR  VARIABLE  DESCRIPTION 


C2S 


XCLASS 

XSIDE 

XREFCD 


C35  LINKS (100) 

FIRST  INCOM 


SYMBOL  KYMBOL 


TABLZ 

KTBVAL (100,4) 
TBRFCD(50,4) 
NUMOT(4) 
NUMCT(4) 


VBINDX  VIND 


NVB 


ICRSW 


HAREA 


Represents  record  type  INDHCS. 

Each  record  la  used  to  identify  the  BCD 
reference  code  of  a  header. 

Header's  CLASS  value 

Header's  SIDE  value 

Header's  BCD  reference  code 

(this  variable  Is  type  character  *8) 

Module  Link  Table 

Logical  switch  which,  when  on.  Indicates 
a  sentence  is  being  analyzed 

Used  to  pass  constructed  ERRFND  symbol 
(see  section  3.5.2). 

Contains  buffers  for  utility  tables  used 

to  store  ERRFND  table 

Buffer  of  100  words  for  each  table  type 

Contains  Reference  Codes  for  tables 

Number  of  utility  tables  created 

Index  numbers  of  table  currently  in 

buffer. 

Number  of  data  transaction  produced  by 
COP  which  may  be  cross-referenced  with 
the  number  of  the  data  transaction 
listed  in  the  data  module  quality  con¬ 
trol  list 

Integer  variable  used  to  increment 
VIND 

Integer  switch  used  to  save  first 
value  of  VIND  into  HAREA 

Character  variable  used  to  suppress 
printing  of  duplicate  cross-reference 
numbers. 
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3.7  Main  Routine  of  COP 


PURPOSE: 


Main  program  of  executive  module 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


COP  (for  purpose  of  discussion) 

None 

C15,  IPQT,  OOPS 

CLZIDS,  DELTAB,  ERRFND,  INICOP,  INPTRN,  INSDEL, 
MODGET 


CAT.T.RT)  BY: 


HIS  operating  system 


Method : 


First,  several  switches  are  set:  CHCKOV  to  control  a  later  call  to 
|  DELTAB,  ERROR  to  indicate  no  error  has  occurred  yet,  and  ENDSW  to  indi¬ 
cate  no  end  of  input.  Next,  INICOP  is  called.  The  process  which  follows 
occurs  for  each  comnand  sentence. 

First  the  ERRFND  overlays  are  read  in  (this  does  not  occur  for  the  first 
sentence  since  INICOP  has  already  done  this).  Next,  ERRFND  is  called. 

If  CHCKOV  is  still  true,  Che  INPTRN  link  is  read  in  and  INPTRN  is  executed 
if  no  error  has  occurred.  If  an  error  occurred  before  INPTRN,  only 
DELTAB  is  called. 

Next,  if  no  error  has  occurred,  MODGET  is  called  to  execute  the  module. 

If  an  error  has  occurred,  CHCKOV  is  set  to  false. 

Finally,  the  End  Input  switch  is  checked  (ENDSW);  if  not  on,  the  next 
|  input  sentence  is  processed.  If  it  is  on,  CLZIDS  is  called  and  proc¬ 
essing  stops. 

COP  is  illustrated  in  figure  13. 
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Figure  16.  (Part  5  of  5) 
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3.7.4  Subroutine  INICOP 


PURPOSE:  To  Initialize  COP  headers  and  check,  for  special 

run  nodes 

ENTRY  POINTS:  INICOP 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  C15,  C30,  ERRCOM,  IPQT,  OOPS,  STRING,  VBINDX 

SUBROUTINES  CALLED:  BANNER,  BOOT,  DLETE,  ENTMOD(SRM),  ERPRIN, 

GETSTR,  HDFND,  OPNIDS,  RETRV,  STORE,  WEBSTR 

CALLED  BY:  COP 

Method : 

The  standard  header  is  produced  and  GETSTR  called  for  the  first  string. 
If  the  first  string  of  input  is  "RESTORE,"  the  overlay  for  the  Save 
and  Restore  Module  (SBM)  is  executed,  IDS  file  opened  and  GETSTR  is 
called  again.  The  current  string  is  now  checked  for  the  value 
"INITIALIZE."  If  this  is  the  value,  the  overlay  for  BOOT  is  executed. 

In  any  case,  the  next  string  is  obtained  from  GETSTR  and  the  utility 
tables  purged.  Finally,  various  headers  are  retrieved  and  the  syntax 
analysis  process  begun  by  bringing  in  the  ERRFND  overlay  and  calling 
WEBSTR. 

Subroutine  INICOP  is  illustrated  in  figure  17. 
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150 


Set  Standard 
Error 

Conditions 


"INITIALIZE" 

\  !  / 


m 


Figure  17.  (Pert  4  of  4) 


3. 7. 4.1  Subroutine  INPRIN 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


Control  input  print 
INPRIN,  ERPRIN,  LGPRIN 
None 

IPQT,  VBINDX 
None 

COP,  GETSTR,  INICOP,  LNGSTR,  SYNTAX 


Method : 

Both  the  INPRIN  and  LGPRIN  entry  points  have  a  similar  process.  The 
INPSV  svitch  is  checked  and  if  false  the  contents  of  HOLD  and  HFLAG 
are  printed  (written  to  file  11).  Then  the  current  input  line  (INBUF) 
is  stored  in  HOLD.  HFLAG  is  set  according  to  the  entry  point  -  blank 
for  INPRIN,  for  LGPRIN. 

The  ERPRIN  entry  point  prints  HOLD  if  it  has  not  been  printed  and 
resets  INPSW. 

Subroutine  INPRIN  is  illustrated  in  figure  17.1. 
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(Entry  INPRIN) 


Figure  17.1.  Subroutine  INPRIN  (Part  1  of  2) 


Figure  18.  (Part  2  of  7) 


Figure  18.  (Part  3  of  7) 
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3.7.6  Subroutine  MODGET 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 

|  COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


Execute  modules 

MODGET 

None 

C35,  ERRCOM,  OOPS,  QC 
BANNER,  ENTMOD,  INSGET 
COP 


Method: 

First  INSGET  is  called  to  get  the  verb's  number.  This  number  is  used  as 
an  index  to  the  module  link  table  (common  block  C35)  to  obtain  an  over¬ 
lay  link  name.  This  name  (NEWMOD)  is  compared  to  the  old  name  (pLDMOD).  If 
they  are  different,  BANNER  is  called  to  display  NEWMOD.  OLDMOD  is  set 
to  NEWMOD.  System  routine  LLINK  is  called  to  read  in  overlay  NEWMOD 
and  standard  module  entry  point  ENTMOD  is  called.  The  standard  error 
conditions  are  now  reset.  If  an  error  occurred  during  module  execution 
an  error  message  is  produced.  Finally,  if  either  the  DATA  or  REPORT 
module  was  executed,  the  error  flag  is  reset  to  false.  If  the  data 
module  is  called,  the  heading  for  the  data  module  quality  control  is 
written  to  file  code  13. 

Subroutine  MODGET  is  illustrated  in  figure  19 . 
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(Entry  CLZIDS) 


m 


(Entry  DIRECT) 


Figure  20.  Subroutine  QDATA:  Entry  CLZIDS  and  DIRECT 
(Part  2  of  9) 


See  part  9  for  explanation  of  annotated  notes 

Figure  20.  Subroutine  QDATA:  Entry  STORE  (Fart  3  of  9) 
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Subroutine  BOOT 


PURPOSE:  Create  and  update  organizational  data 

ENTRY  POINTS:  BOOT 


FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

CIO,  C15,  C20 

SUBROUTINES  CALLED: 

DCTFND, 

NUMFND, 

HDFND 

RETRY 

CALLED  BY: 

INICOP 

C30,  C35 

HDPUT,  HEAD,  MNMFND,  HODFY,  NEXTTT, 
RNMFND,  SEEKER,  STORE,  STRMAK 


Method: 

BOOT  reads  card  Images  which  Instruct  it  as  to  what  actions  to  take. 

The  card  images  are  in  sets  which  are  begun  by  an  introductory  adverb 
and  ended  with  an  END  card.  The  first  part  of  the  process  is  to  read  an 
adverb  (NEW INDEX,  RECORDTYP ,  INDEX,  DICTIONARY,  SYNTAX,  MODULE,  HEADER). 
Each  adverb  causes  the  branch  IBR  to  be  set  to  a  different 
value.  If  an  adverb  is  read  which  is  not  recognized  processing  ceases. 
The  method  used  for  each  adverb  is  different.  However,  each  card  Image 
that  is  read  is  printed  after  any  action  is  taken  with  an  appropriate 
flag  (IND). 

NEWINDEX 


No  command  cards  follow  this  abverb.  The  action  taken  is  to  set  the 
CLASS  attribute  and  call  STORE  to  create  the  utility  table  and  index 
headers. 

RECORDTYP 


Each  card  image  creates  a  new  INDRCT  record.  The  process  is  to  call 
NUMFND  for  the  record  type  number  then  search  the  RCTYP  chain  for  a 
match.  If  a  match  is  found,  IND  is  set  for  Ignored  input.  If  no  match 
is  found,  IND  is  set  to  show  added  record  and  STORE  is  called  to  create 
an  INDRCT  record. 

INDEX 

Each  card  Image  creates  a  new  record  of  the  type  specified  in  the  first 
field  of  the  card  image. 


♦Main  routine  of  overlay  BOOTT. 


101 


CH-1 


INDMST  or  INDDET:  RNMFND  Is  called  for  the  record  type  numbers  and  to 
check  the  validity  of  both  record  type  iinei.  SEEKER  la  then  called  on 
the  appropriate  chain  (IRMA ST  or  IRDET,  respectively)  to  look  for  a 
duplicate.  If  a  duplicate  la  found  the  Ignored  flag  (IND)  la  set. 
Otherwise,  the  appropriate  attributes  are  set  and  STORE  is  called. 

INDATR:  First  STRMAK  is  called  to  obtain  the  attribute  name.  Then  this 

name  la  checked  for  validity  by  DCTFND.  Next  the  ATRIB  chain  Is  queried 

by  SEEKER.  If  a  match  is  found  IND  Is  set  to  Indicate  a  change,  if  not 

it  is  set  to  indicate  an  add.  Now  MNMFND  is  used  to  get  the  value  of 
the  attribute  type.  This  type  is  used  to  determine  how  to  read  the 
default  and  range  fields.  Finally,  depending  upon  IND,  either  STORE 
or  MODFY  is  called. 

ALPHVL 

First  STRMAK  is  called  to  obtain  the  attribute  name,  and  the  name  is 
validated  by  DCTFND.  Next  SEEKER  is  used  to  find  this  attribute  on  the 
ATRIB  chain.  Then  SEEKER  is  used  to  check  the  VALIST  chain  for  a  dupli¬ 
cate  value.  Finally,  if  all  checks  are  correct,  STORE  is  called  to  add 
a  ALPHVL  record. 

LINKER 

First  STRMAK  is  called  to  obtain  the  attribute  name  and  it  is  validated 
by  DCTFND.  Next  RNMFND  is  used  to  validate  the  record  type  name.  Next 
the  IALINK  chain  is  searched  by  SEEKER  for  a  duplicate,  which,  if  found, 
causes  the  flag  (IND)  to  be  set  for  a  change.  Then  MNMFND  is  called  to 
obtain  the  value  of  the  control  mnemonic.  Finally,  either  MODFY  or 
STORE  is  called  depending  upon  the  flag  (IND) . 

DICTIONARY 


Each  card  image  creates  a  new  entry  in  the  dictionary.  First  STRMAK  is 
called  to  obtain  the  input  value  for  the  word  to  be  entered  in  the  dic¬ 
tionary.  Next  DCTFND  is  called  to  look  for  the  new  word  in  the  diction¬ 
ary.  If  the  word  is  found  the  indicator  flag  (IND)  is  set  for  a  change. 
If  neither  the  word  nor  its  tab  character  (tab  character  is  formed  from 
the. first  two  characters  of  the  word)  is  found,  STORE  is  called  to 
create  an  appropriate  tab  character  record  (DCTTAB).  Now  MNMFND  is 
called  to  set  the  word  type.  If  the  type  is  attribute  (Type«6)  NUMFND 
is  called  for  the  value,  and  the  address  and  MNMFND  is  called  for  the 
type  and  identifier  flag.  These  quantities  are  packed  into  WORDVL.  If 
not  an  attribute,  NUMFND  is  called  for  WORDVL.  Finally,  either  MODFY  or 
STORE  is  called. 
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Figure  21.  Subroutine  BOOT  (Part  1  of  24) 
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Figure  21.  (Part  2  of  24) 
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Figure  21.  (Part  23  of  24) 
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3.8.1  Subroutine  DCTFND 


PURPOSE:  Check  for  dictionary  match 

ENTRY  POINTS:  DCTFND 


FORMAL  PARAMETERS: 


STRING:  Character  string  to  be  searched  for 
TYPE:  Type  of  string  expected 

NUMBER:  Identifying  number  returned 
ADRESS:  Address  of  attribute  returned 


COMMON  BLOCKS:  CIO,  C15,  C30 

SUBROUTINES  CALLED:  HDFND,  NEXTTT,  RETRV 
CALLED  BY:  BOOT 

Method: 

First  the  HDSAVE  variable  is  checked.  If  blank  HDFND  Is  called  to  set 
the  value  of  the  reference  code  of  the  dictionary  header  into  HDSAVE. 
The  dictionary  header  is  retrieved.  ICOMP  is  set  to  the  first  two 
characters  of  the  Input  string  to  be  used  as  a  tab  character.  The  TAB 
chain  is  now  searched  to  find  a  match  for  ICOMP.  If  not  found,  NUMBER 
Is  set  to  zero  and  the  subroutine  returns. 


If  a  match  is  found  for  ICOMP,  the  WORD  chain  is  searched  for  a  match. 
If  none  is  found,  the  subroutine  returns  with  NUMBER-0.  If  a  match  is 
found  the  type  of  the  word  found  is  compared  to  TXPE.  If  no  match, 
NUMBER  is  set  to  zero.  If  a  match,  NUMBER  is  set  from  the  dictionary 
and,  if  the  type  is  attribute,  ADRESS  is  also  set. 

Subroutine  DCTFND  is  illustrated  In  figure  22. 
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No  /Tab  Char. 

- \<-ICOMP) 

\  ?  / 


RETURN 


Figure  22.  Subroutine  DCTFND  (Part  1  of  2) 
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3.9  Subroutine  ERRFND 

PURPOSE:  Control  syntax  analysis  process 


ENTRY  POINTS: 

ERRFND 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

FIRST, 

SUBROUTINES  CALLED: 

GETSTR 

CALLED  BY: 

COP 

IPQT,  STRING,  SYMBOL,  TABLZ,  VBINDX 
LNGSTR,  SYNTAX,  TAB INS,  WEBSTR 


Method: 

First  the  ERRFND  table  counts  are  set  to  zero  and  the  SPCIAL  switch  is 
set  to  'False'  to  indicate  that  the  previous  symbol  is  not  an  operator. 
For  every  input  string  but  the  first,  GETSTR  and  WEBSTR  are  called. 
(INICOP  has  already  called  them  in  the  case  of  the  first  sentence  and 
for  every  other  sentence  the  verb  has  been  read.)  If  the  call  to  GETSTR 
encounters  an  end  of  input  (ENDSW),  WEBSTR  is  not  called.  If  the  input 
string  is  a  null  (Type-11),  GETSTR  is  called  again. 

Whether  the  first  string  of  the  sentence  or  not,  process  arrives  at 
statement  3  (see  figure  28) .  If  the  type  is  a  long  string  (Type-2) 
LNGSTR  is  called.  Next  SYNTAX  is  called  to  check  for  syntax  errors. 

If  end  of  input,  process  stops  here.  Otherwise,  the  symbol  is  begun 
(KYMBOL)  by  setting  it  to  TYPE.  Then  the  rest  of  the  symbol  is  created 
according  to  its  type.  Operators,  adverbs,  special  words  and  verbs 
(which  are  at  the  beginning  of  the  sentence)  have  their  identifier 
values  added  to  ther  symbol  and  TAB INS  is  called  to  save  the  symbol. 

Long  strings  have  already  had  their  symbols  created.  Attributes,  alpha- 
betlcs  and  numerics  have  their  values  stored  by  one  call  to  TABINS  and 
their  symbols  stored  by  another. 

After  a  string's  symbol  is  stored,  the  process  returns  to  call  GETSTR 
for  the  next  string  until  an  end  of  input  or  a  second  verb. 

Subroutine  ERRFND  is  illustrated  in  figure  28. 


♦Main  routine  of  overlay  ERRF 
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3.9.1  Subroutine  LNGSTR 


i 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

J  SUBROUTINES  CALLED: 
CALLED  BY: 


Processes  long  strings 

LNGSTR 

None 

IPQT,  STRING,  SYMBOL 
TAB INS,  LGPRIN ,  ERPRIN 
ERRFND 


Method: 

The  delimiter  which  caused  the  call  Is  saved.  Thereafter,  the  process 
continues  to  scan  the  Input  card  Image  one  character  at  a  time  until 
an  identical  character  to  the  delimiter  is  encountered.  With  each 
character  retrieved,  the  character  count  is  incremented.  If  it  exceeds 
120,  a  warning  message  is  printed  and  the  remainder  of  the  string  ignored. 
Each  character  is  added  to  the  next  position  of  ALPHA  and  if  ALPHA  is 
full  it  is  stored  in  ALPHSV. 

When  all  characters  have  been  read,  the  length  of  the  string  is  checked. 

If  it  is  less  than  or  equal  to  12,  the  string  is  treated  as  an  alphabetic, 
stored  In  ALPHA  and  TYPE  is  set  to  9.  Otherwise,  a  symbol  containing  2  in 
bits  30-35  and  the  character  count  in  bits  0-29  is  stored  by  TABINS  and 
an  alphabetic  constant  and  symbol  are  stored  for  each  element  of 
ALPHSV. 

Subroutine  LNGSTR  is  illustrated  in  figure  29. 
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Figure  30.  (Part  11  of  22) 
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Figure  31.  (Pert  6  of  6) 


3.9.4  Subroutine  WEBSTR 


PURPOSE; 

ENTRY  POINTS; 
FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


Looks  up  input  strings  in  dictionary 

WEBSTR 

None 

CIO,  C15,  C30,  STRING 
HDFND,  NEXTTT,  RETRV 
ERRFND,  INICOP 


Method; 

First  the  tab  character  is  created  from  the  first  two  characters  of 
ALPHA  (from  common  block  STRING).  ISWT  is  set  to  assure  a  complete 
search  of  the  TAB  chain.  The  TAB  chain  is  thus  searched  for  the  tab 
character.  If  the  tab  is  not  found,  the  process  ends.  If  it  is 
found,  the  WORD  chain  is  searched  for  a  match  for  ALPHA.  If  a  match 
is  found,  TXPE  and  VALUE  are  set. 

Subroutine  WEBSTR  is  illustrated  in  figure  32. 
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Figure  32. 


Subroutine  WEBSTR  (Part  1  of  2) 
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when  a  comma  is  encountered,  the  last  left  parenthesis  of  the  proper 
level  and  the  next  right  parenthesis  of  the  same  level  have  their  sym¬ 
bols  changed.  Left  parentheses  symbols  are  changed  so  that  bits  30-35“ 
21,  right  parentheses  symbols  are  changed  so  that  bits  30-35=22. 

Passes  Two  through  Four  are  performed  for  each  adverb  in  the  order  in 
which  they  were  input.  When  all  adverbs  have  been  processed  and  the 
Instruction  table  is  complete,  INSFLS  is  called  to  save  the  instruction 
table.  DELTAB  is  called  to  delete  ERRFND  tables.  The  contents  of  the 
STRING  common  block  are  now  restored  and  the  subroutine  exits. 

Pass  Two 

The  first  step  is  to  set  up  the  pointer  in  the  instruction  prefix.  If 
the  adverb  is  null  (JADEX=4)  this  is  all  that  is  done.  A  different 
process  is  used  for  adverbs  with  elemental  phrases  (JADEL=3).  For 
these  adverbs,  each  symbol  of  the  clause  in  turn  is  converted  to  the 
appropriate  "follower  instruction." 

If  the  adverb's  phrases  are  relational  phrases  this  pass  is  used  to 
translate  mathematical  calculations  and  to  replace  any  AND  or  OR  opera¬ 
tors  which  are,  in  reality,  connectors  for  EQUALS  and  BETWEEN  relations. 
In  this  process  the  branch  RELOP  is  used  to  keep  track  of  the  part  of 
the  relational  phrase  expected  next.  Values  for  SELOP  are: 

RELOP  *  1  -  looking  for  an  operator 

RELOP  =  2  -  looking  for  a  collector  or  object 

RELOP  =  3  -  looking  for  object 

RELOP  =  4  -  looking  for  continuation 

When  the  beginning  of  the  object  is  found,  it  is  noted.  While  an  object 
is  being  scanned  the  presence  of  any  math  operator  is  noted.  When  the 
end  of  the  object  is  found,  the  processes  branches  depending  upon 
whether  any  math  operators  were  noted  (MATH=true).  If  so,  the  code 
beginning  at  statement  55  (see  figure  33)  is  used.  If  not,  all  paren¬ 
theses  in  the  object  are  removed. 

The  code  at  statement  55  is  a  process  whereby  each  level  of  parentheses 
is  resolved  separately.  The  first  step  is  to  call  PARLEV  which  flags 
each  parenthesis  with  its  level  and  notes  the  highest  level.  Then 
each  level  of  parentheses  is  converted  to  instructions  needed  to  calcu¬ 
late  the  value  of  each  expression  within  the  parentheses.  The  series  of 
instructions  is  terminated  by  the  instruction  to  store  the  calculated 
value  in  an  Internal  variable.  Hie  parenthetical  expression  in  the 
symbol  table  Is  replaced  by  a  single  non- zero  syn&ol  indicating  the 
index  number  of  the  internal  variable  (bits  30-35=25,  bits  0-29=index). 
As  each  level  is  evaluated  more  of  the  expression  is  removed  until 
finally  only  one  non- zero  symbol  for  the  internal  variable  containing 
the  result  remains. 


Figure  33.  (Part  31  of  36) 
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3.10.5  Subroutine  TABGET 


PURPOSE:  Obtain  values  from  ERRFND  tables 

ENTRY  POINTS;  TABGET 

FORMAL  PARAMETERS:  IXTYP:  Type  of  table 

INDX:  Index  for  that  table  type 

COMMON  BLOCKS:  C40,  STRING,  TABLZ 

SUBROUTINES  CALLED:  RETRV 

CALLED  BY:  INMATH,  INPTRN 

Method: 

This  subroutine  obtains  values  from  one  of  three  ERRFND  tables.  The 
type  of  tables,  indexed  by  IXTYP,  is: 

1  -  Numeric  constants 

2  -  Attributes 

3  -  Alphabetic  constants 

The  process  is  to  calculate  which  of  the  tables  of  the  specified  type 
is  involved  by  dividing  the  input  index  (INDX)  by  the  multiplier  (100 
for  numeric  or  attribute,  50  for  alphabetic).  If  this  table  number  is 
greater  than  the  number  of  "old  tables"  the  value  is  obtained  from  the 
KTBVAL  array.  If  the  table  is  one  of  the  "old  tables"  the  old  table 
in  question  is  retrieved  if  it  is  not  the  current  table  and  the  value 
obtained  from  common  block  C40.  The  retrieved  values  are  stored  in 
the  appropriate  variable  of  the  STRING  common  block. 

Subroutine  TABGET  is  illustrated  in  figure  38. 


START 


Figure  38.  Subroutine  TABGET  (Pert  1  of  2) 
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SECTION  4.  DATA  MODULE 


The  DATA  module  is  designed  to  allow  the  user  to  create  those  portions  v 
of  the  data  base  not  created  by  other  modules,  add  information  to  exist¬ 
ing  record  types  which  were  only  partially  initialized  by  other  modules, 
make  corrections  and  updates  to  existing  record  types  and  delete  record 
types  which  are  no  longer  desired. 


The  card  image  inputs  to  DATA  are  the  user  command  sentences  which  are 
completely  generalized  to  the  degree  possible.  As  with  all  modules, 
the  entire  integrated  data  base  may  be  queried  by  DATA.  The  only  data 
base  precondition  of  DATA  execution  is  the  initialization  of  the  organ¬ 
izational  data  structure.  Naturally,  however,  logical  consideration 
of  DATA  execution  is  a  must.  For  instance,  no  record  can  be  changed 
which  does  not  already  exist;  the  CHANGE  verb  will  never  cause  new 
records  to  be  created.  An  attempt  to  create  any  record  which  already 
exists  will  be  ignored.  Equally,  an  attempt  to  delete  non-existant 
record  types  may  not  be  honored. 


4.3  Output 


The  output  of  DATA  implies  the  updating  (or  deletion)  of  the  contents 
of  record  types  within  the  integrated  data  base.  For  creation,  new 
records  are  added  to  the  data  base  under  those  master  and  chains  as 
directed  by  the  user  card  image  input.  Through  query  of  the  organiza¬ 
tional  structure,  DATA  may  readily  properly  place  user  requests.  A 
change  request  alters  the  contents  of  the  previously  constructed  records. 
In  some  cases  a  match  key  may  have  been  changed  which  causes  the  moving 
of  a  record  type  from  its  existing  chain  to  another  chain. 


Concept  of  Operation 


The  DATA  entry  module  first  determines  which  verb  initiated  the  call. 

In  general  thereafter,  the  input  clauses  are  scanned  to  find  any  Included 
attributes  which  are  used  to  determine  the  record  types  effected. 

Finally,  whatever  action  the  verb  calls  for  is  carried  out  through  sub¬ 
routines  CREAAT,  CHANGE,  and  DELETE. 


Subsections  given  below  describe  various  philosophies  used  in  the 
exercising  of  any  of  the  DATA  verbs. 


4.4.1  Retrieval  Schemes.  When  a  module  wishes  to  retrieve  a  specific 
subset  of  the  data  base  it  is  best  to  do  so  in  an  orderly  fashion. 

That  is  to  say,  for  each  level  of  the  hierarchy  to  be  retrieved,  all 
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associated  elements  of  the  lower  levels  should  be  retrieved  before  the 
next  example  of  that  level  is  retrieved.  A  method  for  doing  this  is 
the  retrieval  scheme. 

A  retrieval  scheme  is  an  array  which  contains  a  series  of  instruction 
like  word  groups.  By  following  the  instruction  pattern  contained  in 
this  array  a  portion  of  the  data  base  will  be  retrieved,  one  unique 
logical  set  of  record  types  at  a  time,  until  all  desired  logical  sets 
have  been  retrieved.  Each  instruction  consists  of  an  introductory  word 
which  contains  an  identifying  number,  followed  by  one  to  three  words 
which  make  up  the  remainder  of  the  instruction.  There  are  four  instruc¬ 
tion  types:  Get  Header,  Chain  Next,  Chain  Master,  and  Return. 

4.4. 1.1  The  Get  Header  Instruction.  This  instruction  always  occurs 
first  in  the  scheme.  It  is  the  instruction  that  tells  the  executing 
module  to  look  for  the  next  data  header.  This  instruction  contains  a  max¬ 
imum  of  four  words  depending  upon  the  code  in  the  second  word.  The  first 
word  contains  a  1.  The  second  word  Informs  the  executing  module  whether 
the  attribute  CLASS  or  SIDE  (or  both)  are  to  be  checked.  It  has  the 
following  meanings: 

1  -  do  not  check  CLASS  or  SIDE 

2  -  check  CLASS  only.  Value  for  CLASS  appears  in  word  three 

3  -  check  SIDE  only.  Value  for  SIDE  appears  in  word  three 

4  -  check  both  CLASS  and  SIDE.  Value  for  CLASS  appears  in  word 

three;  value  for  SIDE  appears  in  word  four 

4.4. 1.2  The  Chain  Next  Instruction.  This  instruction  directs  the 
executing  module  to  retrieve  the  next  record  on  a  chain  and  informs  it 
as  to  which  instruction  is  to  be  executed  if  the  master  of  the  chain  is 
retrieved.  The  instruction  always  has  four  words.  The  first  word  con¬ 
tains  a  2.  The  second  word  contains  the  name  of  the  chain.  The  third 
word  contains  the  record  type  number  of  the  chain's  master.  The  fourth 
word  contains  a  pointer  (index  number)  to  the  instruction  to  be  executed 
if  the  master  of  the  chain  is  retrieved.  In  most  cases,  the  pointer 
will  be  to  the  previous  Chain  Next  Instruction  or  the  Get  Header  Instruc¬ 
tion. 


4.4. 1.3  The  Chain  Master  Instruction.  This  instruction  directs  the 
executing  module  to  retrieve  the  master  record  of  a  chain.  The  instruc¬ 
tion  always  has  two  words.  The  first  word  contains  a  3.  The  second 
word  contains  the  name  of  the  chain. 

4.4. 1.4  The  Return  Instruction.  This  instruction  always  appears  last 
in  a  scheme.  It  infonas  the  executing  module  that  a  logical  set  of 
records  has  been  retrieved.  It  also  Informs  the  module  of  the  instruc¬ 
tion  to  execute  next  to  retrieve  the  next  logical  set  of  records.  The 
instruction  contains  two  words.  The  first  word  contains  a  4.  The 
second  word  contains  a  pointer  to  a  previous  instruction. 
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4.4. 1.5  Retrieval  Supporting  Subroutines.  Retrieval  schemes  are  built 
by  utility  subroutines  SETSCH  from  a  continuous  set  of  record  type 
numbers.  By  continuous  is  meant  that  every  record  type  in  the  set  is 
either  the  master  or  detail  of  a  chain  or  series  of  chains  by  which  it 
is  linked  to  every  other  record  type  in  the  set.  The  utility  subroutine 
LINKUP  is  designed  to  assist  in  this  process.  To  build  a  retrieval 
scheme  LINKUP  and  SETSCH  also  require  that  one  of  the  record  types  in 
the  set  be  identified  as  the  'primary  header'. 

4.4.2  Primary  Header.  The  QUICK  integrated  data  base  is  designed  with 
the  idea  that  all  data  will  be  retrieved  through  the  use  of  data  entry 
point  record  types  known  as  headers  (see  section  2).  The  set  of  record 
types  from  which  a  retrieval  scheme  may  be  built,  might  conceivably  con¬ 
tain  any  number  of  such  headers.  Therefore,  one  of  the  headers  must  be 
designated  as  the  data  entry  point  and  is  referred  to  as  the  'primary 
header. '  The  DATA  module '  uses  several  methods  to  determine  the  primary 
header.  One  is  to  use  the  desired  value  for  the  attribute  CLASS.  Since 
this  attribute  uniquely  defines  a  header,  DATA  assumes  this  is  the  pri¬ 
mary  header.  Another  method  is  to  choose  some  lower  level  record  type 
In  the  hierarchy.  This  record  may  be  determined  by  record  type  number 
since  as  the  record  type  numbers  increase  the  hierarchial  level  tends  to 
decrease  or,  in  the  case  of  CREAAT,  by  the  record  type  with  the  greatest 
number  of  involved  attributes.  In  either  case  utility  subrout ine  PRIMHD  is 
called.  This  subroutine  traces  chains  of  which  the  record  type  is  a 
detail  up  to  a  header.  This  header  is  then  used  as  the  primary  header. 

4.4.3  Determining  a  Record  Type  Set  from  a  List  of  Attributes.  The 
set  of  record  type  numbers  is  built  by  using  the  list  of  attributes 
which  have  been  included  in  the  input  clauses.  Attributes  are  of  three 
types  in  terms  of  the  record  types  that  include  them  as  described  below: 

Single  -  This  type  of  attribute  is  included  on  only  one  record 
type. 

Control  -  This  type  of  attribute  is  Included  on  several  record 

types  but  one  of  the  record  types  is  uniquely  identified 
by  the  attribute.  The  record  type  so  identified  is 
referred  to  as  "controlled." 

Multiple  -  This  type  of  attribute  is  Included  on  several  record 
types  but  la  not  a  unique  identifier  for  any  of  them.. 

The  general  method  of  determining  a  record  set  from  the  list  of  attributes 
is  to  make  two  record  type  lists.  The  first  or  main  list  includes 
all  those  record  types  which  contain  single  attributes  in  the  attribute 
list  plus  the  controlled  record  types  of  any  control  attributes  in  the 
attribute  list.  The  second  or  multiple  list  includes  all  record  types 
which  include  any  of  the  multiple  attributes  in  the  attribute  list. 

The  primary  header  is  now  found  either  from  a  value  for  CLASS  or  from 
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one  of  the  record  types  In  the  main  list.  The  primary  header  is  then 
used  in  a  'chain-down*  process.  This  type  of  process  consists  of 
checking  every  record  type  which  is  a  detail  of  chains  of  which  the 
primary  header  is  the  master.  Then  using  these  detail  records  as 
masters  of  chains  and  so  forth  until  the  lowest  levels  of  the  hierarchy 
headed  by  the  primary  headers  have  been  reached.  Throughout  the  pro¬ 
cess,  the  multiple  list  is  examined  and  anytime  a  record  type  in  the 
hierarchy  appears  in  the  multiple  list  it  is  added  to  the  main  list. 

The  main  list  is  then  used  as  the  set  of  record  types  from  which  a 
retrieval  scheme  is  built. 


4.4.4  Data  Queues.  In  the  process  of  the  CREAAT  or  CHANGE  subroutines 
often  the  subroutine  must  build  one  or  more  data  queues.  This  occurs 
when  an  attribute  or  collection  of  attributes  are  given  more  than  one 
value  or  collection  of  values.  The  queue  is  an  ordered  list  of  the 
values  given  to  the  attribute  or  collection  and  is  maintained  by  the 
subroutine  VALPUT.  Each  value  assigned  to  a  particular  attribute  can 
be  identified  by  its  position  in  the  queue.  Each  value  assigned  to  the 
member  of  a  collection  can  be  identified  by  its  position  within  the 
collection  plus  its  position  in  the  queue  minus  one  times  the  length  of 
the  collection. 


The  CREAAT  subroutine  uses  the  set  of  queues  it  has  created  to  deter¬ 
mine  how  many  times  it  must  go  through  the  process  of  creating  record 
types.  For  each  combination  of  values  in  queues,  the  process  must  be 
followed.  For  example,  if  there  is  one  queue  for  a  single  attribute  with 
three  values  and  another  queue  for  a  collection  of  four  attributes  with 
five  sets  of  values  (a  total  of  20  values),  the  record  creation  process 
would  be  performed  15  times.  CREAAT  uses  a  set  of  queue  counters  which 
are  all  originally  set  to  1  indicating  the  first  value  or  set  of  values 
in  each  queue.  After  every  execution  of  the  record  creation  process, 
the  last  queue  counter  is  incremented  unless  it  is  at  maximum.  In  this 
case  it  is  reset  to  one  and  the  next  to  last  counter  incremented.  If 
the  next  to  last  is  at  maximum  it  is  reset  to  one  and  the  prior  counter 
Incremented  and  so  on.  In  this  way  all  combinations  are  used  in  the 
record  creation  process. 

The  CHANGE  subroutine  expects  that  if  a  data  queue  is  formed  from  the 
SETTING  clause  one  of  the  same  length  will  be  formed  from  the  WHERE 
clause.  Then  when  a  record  is  retrieved  which  satisfies  the  WHERE 
clause  the  data  queue  for  the  WHERE  clause  is  searched  until  the  value 
(or  collection  of  values)  which  caused  the  match  is  found.  The  value 
(or  collection  of  values)  which  occupies  the  same  ordinal  position  in 
the  data  queue  for  the  SETTING  clause  is  used  in  the  record  change 
process. 
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4.5  Identification  of  Subroutine  Functions 

4.5.1  CREAAT.  This  subroutine  (figure  39)  performs  the  functions  of 
creating  new  records.  After  checking  for  the  existance  of  SAME  and 
SUPRESSING  adverbs,  CREAAT  scans  the  SETTING  clause  (any  number  of 
SETTING  clauses  may  be  input,  each  is  processed  similarly).  First  the 
attributes  are  collected,  calculations  flaged  and  OF  phrases  resolved. 
Next,  attribute  values  are  saved  and  data  queues  built  for  attributes 
provided  with  multiple  values.  Next  a  retrieval  scheme  is  built  by 
identifying  the  record  types  defined  by  the  attributes.  Input  values 
are  checked  against  QUICKS  directory.  Attributes  on  records  to  be 
created  but  not  given  values  are  assigned  values  either  according  to 
the  defaults  in  the  directory  or  from  the  record  type(s)  identified  by 
the  SAME  clause.  Finally,  records  are  created  of  every  type  identified 
except  in  cases  where  the  record  to  be  created  would  duplicate  an  exist¬ 
ing  record. 

4.5.2  CHANGE.  This  subroutine  (figure  40)  performs  the  function  of 
changing  existing  records.  First  the  SETTING  clause  is  scanned  and 
attributes  and  values  are  collected.  If  a  data  queue  exists  it  is  set 
up.  Next  the  WHERE  clause  is  scanned  and  its  attributes  are  collected. 
The  two  clause's  lists  are  combined  with  any  WHERE  clause  queue  paired 
with  its  SETTING  clause  counterpart.  The  list  of  attributes  is  used  to 
build  a  retrieval  scheme.  The  retrieval  scheme  is  now  executed  and  any 
record  type  combination  retrieved  which  satisfies  the  WHERE  clause  is 
modified  according  to  the  SETTING  clause. 

4.5.3  DELETE .  This  subroutine  performs  the  function  of  deleting 
unwanted  records.  First  the  WHERE  clause  is  scanned  for  attributes. 

Next  a  retrieval  scheme  is  built  using  the  attributes  found.  From  this 
scheme,  the  record  lowest  in  the  hierarchy  is  determined.  Finally,  the 
scheme  is  executed  and  for  every  record  type  combination  retrieved 
which  satisfies  the  WHERE  clause,  the  lowest  record  type  in  the  hierarchy 
is  deleted. 

4.6  Common  Blocks 

The  common  blocks  internal  to  the  DATA  module  appear  in  table  15. 


Figure  39.  Subroutine  CREAAT:  Macro  Flow  (Part  1  of  3) 


Table  15.  DATA  Module  Internal  Common  Blocks 


BLOCK 

ARRAY  OR  VARIABLE 

DESCRIPTION 

ORDER 

SCHORD(IOO) 

Record  type  numbers  of  record  types 
Involved  In  retrieval  scheme  in 
retrieval  order 

SORDNM(IOO) 

Record  type  names  in  retrieval  scheme 
order 

LENSCH 

Length,  in  words,  of  retrieval  scheme 

PRINSP 

PRINON 

Switch  to  control  optional  prints 

True  -  produce  prints 

False  -  do  not  produce  prints 

SCHEME 

POINT 

Pointers  to  current  instruction  of 
retrieval  scheme 

SCHEME (200) 

Retrieval  scheme 

SCRTCH 

LIST (300) 

Storage  space  used  as  work  area  by 
several  subroutines 
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4.7  Subroutine  ENTMOD 


PURPOSE:  Entry  subroutine  for  DATA  module 

ENTRY  POINTS :  ENTMOD  (first  subroutine  called  when  overlay  DATA 

is  executed) 


FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


None 

PRINSP ,  QC 

CHANGE,  CREAAT,  DELETE,  INSGET 
MODGET 


Method : 

This  subroutine  performs  the  function  of  selecting  the  desired  DATA 
module  overlay.  INSGET  is  used  to  obtain  the  value  of  the  verb  which 
caused  the  call.  The  adverbs  are  scanned  for  the  ONPRINTS  adverb.  If 
it  is  found  the  PRINON  variable  in  the  PRINSP  cotnnon  block  is  set  to 
true.  Then  the  requested  overlay  link  is  read  in  and  the  verb  executed. 

Subroutine  ENTMOD  (DATA)  is  illustrated  in  figure  41. 
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4.7.1  Subroutine  VALPUT* 


PURPOSE: 

Store  values  for  data  queues 

ENTRY  POINTS: 

VALDEL,  VALGET,  VALPUT 

FORMAL  PARAMETERS: 

VALUE:  Value  to  be  stored  or 
COUNT:  Position  of  Value  in 
COLECT:  Identifying  number  of 

value  retrieved 
queue 
queue 

COMMON  BLOCKS: 

C40 

SUBROUTINES  CALLED: 

DLETE,  RETRV,  STORE 

CALLED  BY: 

CHANGE,  CREAAT 

Method: 

Entry  Point  VALPUT 

The  Input  VALUE  is  entered  in  the  current  entry  space.  The  current 
pointer  for  the  COLECT  queue  is  also  stored  with  VALUE  and  the  queue 
count  incremented.  The  index  of  VALUE  is  saved  as  the  new  current 
pointer  for  the  COLECT  queue.  If  the  buffer  is  full,  a  new  TABLEZ  is 
created  and  the  pointer  reset  to  1. 

Entry  Point  VALGET 

The  queue  count  and  COUNT  are  used  to  determine  the  number  of  entries 
needed  for  search  since  the  values  are  in  the  queue  in  reverse  order. 
The  number  of  entries  is  then  retrieved  starting  with  the  current 
pointer  and  proceeding  using  the  pointer  in  the  entry  until  the  desired 
entry  is  retrieved.  Its  value  is  set  in  VALUE, 

Entry  Point  VALDEL 

Any  TABLEZs  created  are  retrieved  and  deleted.  Also,  the  queue  counts 
and  pointers  are  set  to  zero. 

Subroutine  VALPUT  is  illustrated  in  figure  42. 


*This  subroutine  appears  in  overlays  DATACH  and  DATACR. 
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4.8  Subroutine  CHANGE* 


PURPOSE: 


To  change  existing  records 


ENTRY  POINTS:  CHANGE 


FORMAL  PARAMETERS :  None 


COMMON  BLOCKS: 


CIO,  C20,  C30,  ERRCOM,  OOPS,  ORDER,  PRINSP,  QC, 
SCHEME 


SUBROUTINES  CALLED:  DESSCH,  GETNXT ,  HDFND ,  HEAD,  INSGET,  LINKUP,  MODFY, 

NEXTTT,  NXTDES,  OFVAL,  PRIMHD ,  SETSCH,  UNCODE, 
VALDEL,  VALFND ,  VALGET,  VALPUT,  XLL,  XMATH,  XWHERE 

CALLED  BY:  ENTMOD  (DATA) 

Method : 

The  CHANGE  verb  process  may  be  broken  into  eight  steps  which  are  carried 
out  in  sequence  (see  figure  40) . 


Step  One 


The  SETTING  clause  is  scanned.  In  the  process  any  OF  phrases  and  LIKE 
-strings  are  immediately  resolved  using  VALFND  and  their  values  stored 
via  OFVAL.  Also  the  extent  of  any  mathematical  calculations  is  noted 
as  the 'limits  for  execution  for  subroutine  XMATH.  The  main  thrust  of 
the  step  is  to  list  any  attributes  (ATNUMB)  and  save  the  values  assigned 
to  them.  If  an  extended  equals  phrase  is  included,  a  queue  of  the  values 
is  built  and  the  involved  attribute (s)  are  flagged  (ATTYPE*2)  (see 
figure  43). 

Step  One  and  a  Half  v 

The  SETTING  clause  is  scanned.  In  the  process,  any  attribute  which  is 
simply  set  to  a  value  is  looked  up  in  the  directory  and  the  value  checked. 
List  alphabetics  have  their  list  of  valid  values  compared  to  their  input 
values.  Numeric  attributes  have  their  values  compared  to  the  limits 
given  in  the  directory.  LAT  and  LONG  are  compared  to  hard-coded  limits. 
Any  errors  are  reported  but  processing  continues. 

Step  Two 

The  WHERE  clause  is  scanned.  In  the  process  any  OF  phrases  and  LIKE 
strings  are  immediately  resolved  using  VALFND  and  their  values  stored 
via  OFVAL.  Any  attributes  are  saved  in  a  list  (WHATNB) .  If  an  extended 
equals  phrase  is  included,  its  involved  attributes  are  flagged  (WHATYP-4) 


*The  main  routine  of  overlay  DATACH 
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and  Its  values  stored  in  a  queue  via  VALPUT.  The  CLASS  and.  SIDE  attri¬ 
butes  are  particularly  noted  and  their  values  saved  to  assist  in  the 
retrieval  scheme  construction  process.  If  the  DESIG  attribute  is  the 
only  attribute  included  this  fact  is  noted  as  the  retrieval  process 
differs  greatly  in  this  event  (see  figure  44) . 
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Figure  43.  Subroutine  CHANGE:  Step  One 
(Pert  i  of  10) 


Figure  43.  (Part  5  of  10) 
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Figure  43.1.  Subroutine  CHANGE:  Step  One  end  a  Half 
(Part  1  of  7) 
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Figure  43.1  (Part  2  of  7) 
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Figure  43.1.  (Part  3  of  7) 
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Step  Three 


The  two  attributes  lists  (ATNUMB  and  VHATNB)  are  now  combined.  Also  It 
la  determined  if  both  clauses  contained  a  queued  set  of  attributes  (see 
figure  45). 

Step  Four 

The  list  of  attributes  (ATNUMB)  is  now  used  in  an  attempt  to  build  a 
list  of  record  types.  The  ATRIB  chain  is  used  to  find  the  attributes 
in  the  list  and  it  is  determined  for  each  attribute  whether  it  is  a 
single,  multiple  or  control.  For  a  single  attribute,  the  record  type 
it  is  on  is  added  to  the  record  type  list  (RTLIST).  For  multiple  attri¬ 
butes  (those  in  the  SETTING  clause)  a  list  (MLTLST)  is  kept  separately 
of  the  record  types  which  contain  them.  For  a  control  attribute  the  con¬ 
trolled  record  is  added  to  the  record  type  list  (RTLIST).  If  the  attri¬ 
bute  appeared  in  the  SETTING  clause,  the  record  type  is  also  added  to  a 
special  list  (CTLLST).  A  separate  list  (CRECNM)  is  also  made  of  the 
record  types  whose  attributes  appear  in  the  SETTING  clause  as  these  are 
the  types  which  will  be  changed  (see  figure  46) . 

Step  Five 

For  each  record  type  in  the  list  (CTLLST)  of  controlled  record  types  whose 
attribute  was  in  the  SETTING  clause,  PRIMHD  is  now  called  to  determine 
their  primary  header.  These  headers  are  added  to  the  list  of  record 
types  (RTLIST)  (see  figure  47). 

Step  Sin 

Now  the  primary  header  is  determined.  If  a  value  for  CLASS  was  Included, 
it  is  used  to  do  this.  If  no  such  value  was  included  the  record  type 
with  the  highest  number  is  used.  PRIMHD  is  called  to  determine  the 
primary  header.  The  primary  chains  down  from  the  prlaary  header  are 
now  checked  against  the  multiple  attribute  record  list.  Any  found  are 
included  in  the  record  type  list  (RTLIST)  (see  figure  48). 

Step  Seven 

First  LINKUP  is  called  to  complete  the  record  type  list  (RTLIST).  SETSCH 
is  now  called  to  build  the  retrieval  scheme.  The  retrieval  scheme  is 
used  to  determine  the  retrieval  order  of  the  record  types  which  are  to  be 
changed  and  they  are  placed  in  the  CHORD  list  in  this  order  (see  figure 
49). 
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Figure  48.  Subroutine  CHANGE:  Step  Six 
(Pert  1  of  4) 
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Figure  48.  (Pert  4  of  4) 


Step  Eight 

First,  If  the  WHERE  cleuse  contained  only  the  DESIG  attribute,  DESSCH 
Is  called  to  build  a  DESIG  driven  retrieval  scheme  (see  section  4.8.1). 
Then  the  queue  of  DESIG  values  is  processed  one  at  a  time.  For  each 
value  NXTDES  is  called  to  retrieve  the  appropriate  record.  Then  all 
SETTING  clause  attributes  are  set  to  their  input  values.  The  queued 
attributes  are  set  to  the  values  whose  position  In  the  queue  correspond 
to  the  position  of  the  DESIG  value  In  its  queue.  Then  the  record  types 
in  the  CHORD  array  have  MODFY  called  for  them  in  the  order  they  appear. 

If  the  retrieval  is  not  DESIG  driven  the  process  is  similar.  The  GETNXT 
routine  is  called  until  it  passes  back  the  indication  that  the  retrieval 
process  is  over  (ISW*2) .  For  each  record  retrieved,  XWHERE  is  called  and 
if  the  record  is  one  of  those  desired,  the  attribute  values  are  set. 

If  there  is  a  queue,  the  WHERE  Is  searched  for  the  appropriate  match 
and  the  corresponding  SETTING  queue  values  are  used.  Then  MODFY  is  called 
for  the  elements  of  the  CHORD  array  (see  figure  50). 
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Figure  50.  Subroutine  CHANGE:  Step  Eight 
(Part  1  of  7) 
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Figure  50.  (Pert  5  of  7) 
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Figure  50.  (Pert  7  of  7) 
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PURPOSE: 

entry  points: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS; 


SUBROUTINES  CATJJm- 


CALLED  BY: 

Method: 

Th*  CREAAT  verb  process  may  be  broken  Into  15  steps.  Of  these,  step  1 
Is  executed  but  once  end  controls  as  many  executions  of  steps  2  through 
14  as  there  are  SETTING  clauses.  Furthermore,  step  13  Is  executed 
after  the  first  execution  of  step  14  and  15  for  a  SETTING  clause. 
Thereafter  steps  13,  14,  and  15  are  executed  for  every  unique  combination 
of  any  data  queues  (see  figure  39) 

Sj.4T.  Qa*, 

First  the  error  routine  ERPROC  Is  set  to  accept  duplicate  records.  Then 
the  Input  Is  scanned  for  the  presence  of  SUFRESSING  and  SAME  adverbs. 

If  a  SUFRESSING  adverb  Is  found,  the  DRCTSW  switch  which  Is  originally 
set  to  true  Is  set  to  false  to  Indicate  that  input  values  should  not  be 
edited.  If  a  SAME  adverb  Is  found  the  SAMESW  switch  Is  set  to  true  and 
the  Identifying  attribute's  number,  address  and  value  are  saved  In 
ISMIDN,  ISKXDA,  and  SMVAL,  respectively.  Mow  each  SETTING  adverb  Is 
processed  in  the  order  Input  with  steps  2  through  14  being  executed  for 
each.  When  all  SETTING  adverbs  have  been  processed  the  subroutine  exits 
(see  figure  53). 

JyP. 

The  current  SETTING  clause  Is  scanned.  The  limits  of  any  mathematical 
calculations  are  found  for  XMATH  and  OF  phrases  which  are  Involved  In 
those  calculations  are  resolved  using  VALFND  and  chair  values  saved  with 
OFVAL.  Attributes  which  are  encountered  are  placed  In  a  list  (ATNUMB) 
and  counts  are  made  of  those  which  appear  more  than  once  or  in  collec¬ 
tions  (see  figure  54). 


To  create  new  data  records 

CREAAT 

None 

CIO,  C15,  C20,  C30,  EERCOM,  OOPS,  ORDER,  PRINSP, 
SCHEME,  QC 

DIRECT,  FNDTAR,  GETNXT,  GETTAR,  HDFND,  HEAD, 
INSGET,  LINKUP,  NEXTTT,  OFVAL,  PRDfflD,  RETRV, 
SETSCH,  STORE,  UNCODE,  VALDEL,  VALFND,  VALGET, 
VALPUT,  ILL,  XMATH 

ENTMOD  (DATA) 
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Figure  53.  (Part  3  of  3) 
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Figure  54.  Subroutine  CREAAT:  Step  2  (Pert  1  of  6) 
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Figure  54.  (p*rt  6  of  6) 
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Step  Three 

The  liet  of  attributes  (ATNUMB)  Is  processed  to  set  up  value  storage. 
Those  which  occurred  only  once  are  given  a  pointer  to  the  VALBUF  array. 
Those  which  occurred  a  number  of  times  or  in  collections  are  given  a 
position  in  a  queue  maintained  through  VALFUT  (see  figure  55). 

Step  Four 

The  SETTING  clause  is  scanned  again.  This  time  the  values  encountered 
are  stored  according  to  conditions  set  in  step  three.  If  an  attribute 
is  set  via  a  LIKE  phrase  or  equal  to  an  attribute  with  an  OF  phrase, 
VALFND  is  called  to  obtain  the  desired  value.  If  an  attribute  is  set 
equal  to  a  calculation,  XMATH  is  called  for  the  records  obtained  when 
VALFND  is  used  with  the  SAME  clause  values  as  identifiers.  If  an 
attribute  is  set  equal  to  another  attribute  which  does  not  have  an  OF 
phrase,  the  SAME  clause  is  also  used  as  the  Identifier.  In  either  case 
where  the  SAME  clause  values  are  used  an  error  condition  results  if  no 
SAME  clause  was  provided  (see  figure  56). 

Step  Five 

The  ATRIB  chain  is  now  used  with  two  objectives.  First  as  each  attri¬ 
bute  in  the  list  of  attributes  (ATNUMB)  is  found  on  the  ATRIB  chain, 
a  list  (RTLIST)  is  made  of  the  record  types  which  contain  them.  Single 
defined  attributes  record  types  are  added  to  the  list  lxraediately. 
Multiple  and  control  attributes  are  kept  in  separate  lists  and  resolved 
later.  Furthermore,  unless  DRCTSW  is  false,  the  value  or  values  assigned 
|  to  each  attribute  are  checked  against  the  directory,  except  LAT  and  LONG 
which  are  compared  against  hard-coded  values.  Any  values  which  violate 
the  directory  are  noted  (see  figure  57). 

Step  Six 

Control  attributes  are  now  checked  to  see  if  they  already  have  their 
record  types  in  the  main  list  (RTLIST)  (which  up  to  now  contains  only 
record  types  from  single  attributes).  If  the  uncontrolled  record  type 
(CNTB)  is  not  in  the  list  the  controlled  record  type  (CNTA)  is  added 
to  the  list.  Also,  any  multiply  defined  attribute  has  Its  list  (MLATPT) 
of  record  types  compared  to  the  main  list  (RTLIST).  If  any  match  is 
found,  the  attribute  is  considered  resolved  (see  figure  58). 

Step  Seven 

The  primary  header  is  now  found  in  one  of  two  ways.  If  a  value  was 
Included  for  the  CLASS  attribute  this  value  is  used  in  a  call  to 
•  HDFND.  If  not,  the  record'  type* which «has  had  the  most  attributes  set 
is  used  in  a  call  to  PRIMHD.  An  attempt  is  now  made  to  resolve  any 
remaining  multiple  attributes  by  searching  on  chains  down  from  the 
primary  header.  Any  record  types  on  these  chains  which  appear  in  the 
multiple  attribute  lists  are  added  to  the  main  list  (see  figure  59). 
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Figure  56.  (pert  3  of  5) 
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(Step  6) 
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Figure  57.  Subroutine  CREAAT:  Step  5  (Part  1  of  8) 


Figure  57.  (Part  3  of  8) 


Figure  57.  (Part  4  of  8) 


Figure  57.  (Pert  5  of  8) 
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Figure  67.  (Part  3  of  6) 
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Figure  67.  (Part  4  of  6) 
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Figure  67.  (Part  5  of  6) 
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4,10  Subroutine  DELETE 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


To  delete  records 

DELETE 

None 

CIO,  C20,  C30,  OOPS,  ORDER,  PRWSP,  SCHEME,  QC 

DLETE,  GETNXT,  HDFND,  HEAD,  INSGET,  LINKUP, 
NEXTTT,  OFVAL,  PRIMHD,  SETSCH,  UNCODE,  VALFND, 
XWHERE 


CALLED  BY: 


ENTMOD  (DATA) 


Method  : 

The  DELETE  verb  process  can  be  broken  into  five  steps  which  are  executed 
In  sequence. 

Step  One 

The  WHERE  clause  Is  scanned.  In  the  process  OF  phrases  and  LIKE  strings 
are  resolved  Immediately  using  VALFND  and  the  values  stored  by  OFVAL. 
Attributes  which  are  found  are  placed  In  a  list  (ATNUMB)  and  if  either 
the  CLASS  or  SIDE  attributes  are  encountered  the  values  given  are  saved 
to  assist  in  the  retrieval  scheme  construction  process. 

Step  IWo 


The  list  of  attributes  (ATNUMB)  is  now  resolved  via  the  ATRIB  chain  to 
create  a  list  of  record  types  (RTLIST).  A  single  defined  attribute 
record  type  is  added  to  the  list.  A  control  attribute  has  its  controlled 
record  added  to  the  list.  The  record  types  which  contain  multiply  de¬ 
fined  attributes  are  saved  in  a  separate  list  (MLTLST). 

Step  Three 

The  primary  header  is  now  determined  in  one  of  two  ways.  If  a  value 
was  given  for  CLASS,  HDFND  is  called  for  the  primary  header.  Otherwise 
the  highest  numbered  record  is  determined  and  PRIMHD  Is  called.  Now  the 
chains  of  which  the  ptimary  header  is  thetmaster  are  searched  Looking  for 
matches  among  the  list  of  multiple  attribute  record  types.  Any  matches 
are  added  to  the  record  type  list.  Finally  LINKUP  and  SETSCH  are  tailed 
to  build  the  retrieval  scheme. 


The  retrieval  scheme  is  used  to  deterraiue  the  lowest  record,  type  in  the 
hierarchy  to  be  retrieved  and  this  type  is  noted -as  the  type  to  be  de¬ 
leted  (DNAME) . 

Step  Five 

Now  GETNXT  is  called  to  execute  the  retrieval  scheme.  For  each  record 
retrieved,  XWHERE  is  called  to  determine  if  the  record  is  desired.  If 
so  DLETE  is  called  for  the  DNAME  record  type. 


Subroutine  DELETE  is  illustrated  in  figure  68, 
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Figure  92.  Subroutine  ALTER:  Step  Seven 
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6.9  Subroutine  DESIGN 


PURPOSE; 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 

CALLED  BY: 

Method; 


To  design  a  new  display  .  . 

DESIGN 

None 

CIO,  C15,  C30,  DEFNMZ,  DSPHED ,  OOPS,  ZEES 

DLETE,  HDFND,  INSGET,  NEXTTT,  RETRV,  STORE, 
TABMNT,  UNCODE 

ENTMOD  (REPORT) 


Step  One 

First  the  input  is  scanned  for  a  DISPLAY  clause.  If  none  exists  the  new 
display  is  named  'Q TEMPORARY QQ ' .  If  a  DISPLAY  clause  is  given,  the 
name  is  obtained  from  it.  If  the  name  is  said  to  be  'OLD,'  the  old 
clause  is  found  and  deleted.  If  the  name  is  said  to  be  'NEW*  a  check 
is  made  to  assure  against  duplication.  The  new  display  table  record 
(DISPRC)  is  now  created  (see  figure  93). 

Step  Two 


The  attributes  PAGELENGTH,  LINELENGTH,  and  REPORTCODE  are  set  to  their 
defaults  (55,  120  and  42,  respectively).  Then  the  input  is  scanned  for 
a  SETTING  clause.  Any  of  the  attributes  named  whose  values  are  set  by 
the  SETTING  clause  are  altered  to  reflect  the  new  values  (see  figure  94). 

Step  Three 


Now  any  and  all  DEFINE  clauses  are  read  in  and  stored  in  TABMNT  utility 
table  1.  As  DEFINES  are  read  they  are  checked  foT  errors  and  their 
names  are  saved  in  comnon  block  DEFNMZ  (see  figure  95). 

Step  Four 

If  there  is  an  input  WHERE  clause  it  is  read  in  and  stored  in  utility 
table  2.  •  As  it  is  read  in  it  is  checked  for  errors  (see  figure  96). 

Step  Five 

If  there  is  an  input  SORT  clause  it  is  read  in  and  stored  in  utility 
table  3  (see  figure  97) . 


♦Main  routine  of  overlay  RPTDSN 
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8.11  Subroutine  TABBLE* 

PURPOSE :  To  produce  TABLE  output 

ENTRY  POINTS:  TABBLE 

FORMAL  PARAMETERS:  None 

COMMON  3L0CKS:  CIO,  C20,  C30,  OOPS,  PRINSP,  SCHEME 

SUBROUTINES  CALLED:  CONVLL,  GETNXT,  HEAD,  INSGET,  NEXTTT 

CALLED  BY:  ENTMOD  (EIM) 

Method: 

The  general  method  is  for  a  preset  retrieval  scheme  to  be  set  in  common 
block  SCHEME  and  executed  by  GETNXT.  Each  record  retrieved  is  then 
written  in  its  particular  format.  First  the  input  is  checked  for  a 
UNIT  clause  which  could  change  the  output  tape  unit  (default-35)  and 
for  a  WHERE  clause  which  could  alter  the  value  of  the  attacking  side 
(default-BLUE) . 

Next  the  retrieval  scheme  to  retrieve  targets  on  the  defending  side  of 
CLASS-MISSIL  (array  SCHA)  is  stored,  executed  and  the  output  written. 
Then  the  scheme  to  retrieve  attacking  weapon  types  of  CLASS-BMBWEP 
(SCHB)  is  stored,  executed  and  the  output  written.  Hits  scheme  is  then 
altered  to  retrieve  CLASS-MSLWEP  and  executed. 

Next  the  retrieval  scheme  to  retrieve  attacking  warhead  types  of  CLASS- 
BOMB  (array  SCHC)  is  stored  and  executed.  This  same  scheme  is  then 
altered  consecutively  to  retrieve  and  write  out  the  CLASSs  RV,  MRV,-  MIRV 
and  ASM. 

Now  the  retrieval  scheme  to  retrieve  the  attacking  missile  bases  (array 
SCHD)  is  stored,  executed  and  the  bases  written  out.  This  scheme  is 
altered  to  retrieve  bomber  bases  and  executed.  Finally,  the  scheme 
for  offensive  recovery  bases  (array  (SCHE)  is  used  to  retrieve  and 
display  them. 

Subroutine  TABBLE  is  illustrated  in  figure  130. 


♦Main  routine  of  overlay  BTABLE 
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Table  24.  (Part  4  of  5) 


Block 

Arrav  or  Variable 

Description 

JHDR 

Record  type  number  of  primary  header 

SCHEME 

POINT 

Pointer  to  current  retrieval  scheme 
instruction 

SCHEME (200) 

Retrieval  scheme  (section  4.4) 

SCRTCH 

LIST (300) 

Storage  space  used  as  work  area  by  sev¬ 
eral  subroutines 

SIDES 

SIDES (5) 

List  of  values  for  SIDE 

SNDMIN 

XMIN 

Minimum  value  of  x-coordinates 

YATXMN 

Y-coordlnate  at  minimum 

X-coordinate 

XATYMN 

X-coordinate  at  minimum 

Y-coordinate 

YMIN 

Minimum  value  of  y-coordinates 

ISUMIT 

Number  of  points  off  the  graph 

SORSCH 

SRTSCH(IOO) 

Sort  scheme  (see  section  6.10) 

TAPES 

• 

PLOTTAPE 

Logical  unit  number  for  plot  tape 

PIECTAPE 

Logical  unit  number  for  tape  for  non- 
plotted  points 

TARGET 

SACB(1,2) 

Target  coordinates  (Latitude  and 
Longitude) 

TGTLIM 

ITLIM 

Number  of  pairs  of  targets 

DESLIM 

(2,30)  First  two  character  of  DESIGs  to 
be  excluded 

TSTDFF 

TOFMIN 

Minimum  time  of  flight 

CMISS 

Missile  time  coefficient 

RNGMIN 

Minimum  range 

Maximum  range 


RANGEM 


Table  24.  (Part  5  of  5) 


Block 

Array  or  Variable 

Description 

WAROUT 

IVARFL 

Logical  unit  number  for  printed  output 

XMEDGE 

YHEDGE 

Map  edge 

XLL 

X-coordinate 

of  last  point 

YLL 

Y-coordinate 

of  last  point 

XL 

X-coordinate 

of  point  to  be  plotted 

YL 

Y-coordinate 

of  point  to  be  plotted 

XWEDGE 

Converted  value  for  latitude  of  origin 

BANGL 

Converted  value  for  longitude  of  origin 
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9.6.1  Subroutine  CONVLL 

PURPOSE ;  Convert  latitude  and  longitude  to  degrees, 

minutes,  seconds  (DMS)  format 

ENTRY  POINTS :  CONVLL 

FORMAL  PARAMETERS:  XLAT:  Input  latitude 

XLONG:  Input  longitude 

CHLAT:  Output  latitude  (character  *7) 

CHLONG:  Output  longitude  (character  *8) 

COMMON  BLOCKS;  None 

SUBROUTINES  CALLED;  None 

Method; 

The  process  is  similar  for  both  latitude  and  longitude.  The  latitude 
is  converted  first.  The  letter  (CHM)  is  set  to  N  and  if  the  latitude 
is  negative  it  is  set  to  positive  and  CHM  is  set  to  S.  The  degrees, 
minutes  and  seconds  are  then  broken  out  and  ENCODEd  into  CHLAT. 
Longitude  is  now  processed,  CHM  is  set  to  W.  If  longitude  is  greater 
than  180  it  is  subtracted  from  360  and  CHM  is  set  to  E.  Longitude  is 
then  broken  down  and  ENCODED  into  CHLONG. 

Subroutine  CONVLL  is  illustrated  in  figure  118. 


9.25  Subroutine  IORFL 


PURPOSE;  To  check  Input  value  and  convert  it  to  floating 

point  if  it  is  integer 

ENTRY  POINTS;  IORFL 

PORMAL  PARAMETERS:  X:  Value  to  be  checked  and,  if  necessary, 

converted 

COMMON  BLOCKS:  None 

SUBROUTINES  CAITED;  None 

Method; 

First  the  input  value  is  checked  to  see  if  it  is  a  floating  point  zero. 

If  so  the  routine  exits.  If  not,  bits  8  and  9  of  the  value  are  compared. 
If  they  are  equal  the  value  is  Integer  and  is  converted  to  floating 
point. 


Subroutine  IORFL  is  illustrated  in  figure  155. 


Figure  155.  Subroutine 


9.32  Subroutine  LINKUP 


PURPOSE: 


To  add  to  a  list  of  record  types  any  additional 
types  needed  to  build  a  retrieval  scheme 


ENTRY  POINTS:  LINKUP 


FORMAL  PARAMETERS: 


COMMON  BLOCKS: 


LIST:  List  of  record  type  numbers 

LISTLN:  Length  of  list 

KHDR:  Record  type  number  of  primary  header 

CIO,  C20,  C30,  SCRTCH 


SUBROUTINES  CALLED:  NEXTTT 


Method: 

This  subroutine  is  best  understood  by  examining  figure  162.  Basically, 
the  routine  begins  with  the  input  LIST  and  pairs  to  it  the  JIST  array 
which  contains  an  identifying  number  for  the  'complex'  of  record  types  to 
which  each  record  type  in  LIST  belongs.  A  complex  (as  defined  here)  is 
a  group  of  record  types  which  is  continuous  in  that  every  record  type 
in  the  group  is  linked  to  every  other  type  in  the  group  through  one  or 
more  data  base  chains.  The  objective  of  the  LINKUP  process  is  to  add 
record  types  to  LIST  in  such  a  way  that  all  record  types  end  up  in  the 
same  complex.  If  an  error  condition  occurs  the  length  of  the  output 
LIST  is  set  to  zero  (LISTLN=0). 

In  the  first  part  of  the  process  JIST  is  set  to  0  for  all  but  the  primary 
header  (KHDR)  which  is  set  to  1.  Then  each  element  of  LIST  is  examined 
as  follows.  If  JIST  is  zero,  it  is  set  to  the  next  number  in  sequence 
(ICOMP).  Then  for  every  chain  of  which  it  is  master  the  detail  record 
is  compared  to  LIST.  If  a  match  is  found  and  the  match  entry  has  JIST*=0, 
JIST  is  set  equal  to  JIST  for  the  current  LIST  element.  If  a  match  is 
found  and  the  match  entry  has  JIST^O  then  all  JIST  entries  equal  either 
to  the  match  entry  for  JIST  or  the  current  entry  for  JIST  are  set  equal 
to  the  lower  of  these  two. 

If  no  match  is  found  for  the  detail  record  type  in  LIST,  it  is  compared 
to  the  auxiliary  table  KIST.  If  a  match  is  found  in  KIST,  the  KIST 
entry  is  removed  and  added  to  LIST.  Furthermore,  all  entries  equal  to 
the  JIST  current  value  or  the  auxiliary  table  complex  number  (MIST)  for 
the  KIST  entry  are  set  equal  to  the  lower  numbered  value.  This  reset 
is  done  in  both  JIST  and  MIST. 

If  no  match  is  found  for  the  detail  record  in  either  LIST  or  KIST,  the 
detail  is  added  to  KIST  and  the  appropriate  value  set  in  MIST.  When  all 
entries  of  LIST  have  been  processed,  JIST  is  checked  to  see  if  any 
entries  are  not  equal  to  1.  If  any  are  not,  a  more  complex  process  must 
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9.42.1  Sobroutine  PROCTIM 
PURPOSE: 

ENTRY  POINT: 

FORMAL  PARAMETER: 

COMMON  BLOCKS: 

SUBROUTINES  CALLED: 


Obtains  remaining  processor  time  from 
Honeywell  system. 

TIMOUT 

LTIM 

None 

GEINFO 


Method : 

Calling  parameters  to  perform  a  MME  GEINFO  call  are  set.  The  call  is 
then  made  and  the  remaining  processing  time  is  loaded  into  LTIM. 

Subroutine  PROCTIM  is  illustrated  in  figure  172.1. 


Figure  172.1.  Subroutine  PROCTIM 
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PURPOSE: 


To  pack  QUICK  system  logical  array  values 
(0  *  False;  1  ■  True). 

SLOG 


ENTRY  POINT : 

FORMAL  PARAMETERS:  L  -  QUICK  logical  array 

E  -  Expression  giving  value  (True  is  non¬ 

zero) 

I,J,K  -  Array  indices 

LL(M,N  -  Array  dimensions 

COMMON  BLOCKS:  None 

SUBROUTINES  CALLED:  None 

Method : 

The  bit  position  of  the  desired  logical  value  is  determined;  the  bit  is 
set  to  zero  (.FALSE.)  if  E  equals  zero,  or  to  one  (.TRUE.)  if  E  is  non¬ 
zero. 

Function  SLOG  is  illustrated  in  figure  178. 
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9.53  Subroutine  SWTCHT 

PURPOSE :  To  set  switches  corresponding  to  bit  positions 

18  thru  35  on  the  GCOS  SWITCH  word.  These 
bits  are  set  using  the  $SET  card  in  the  JCL 
stream. 


ENTRY  POINTS:  SWTCHT 

FORMAL  PARAMETERS:  I  -  Bit  location  to  be  tested 

J  -  Value  returned  (1  is  off,  2  is  on) 


COMMON  BLOCKS:  None 

SUBROUTINES  CALLED:  GESETS 

Method : 

The  switch  word  is  obtained  from  the  GCOS  system  by  calling  GESETS.  The 
appropriate  bit  is  checked  and  the  return  values  are  set. 


Subroutine  SWTCHT  is  illustrated  in  figure  183. 


Figure  183.  Subroutine  SWTCHT 
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9.54  Subroutine  TGTLIM 


PURPOSE : 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINE  CALLED: 


To  provide  a  source  for  the  user-selected 
targets  which  are  not  to  be  considered  by 
MIRVDUMP . 

TGTLIM 

None 

TGTLM 

None 


Method : 

The  number  of  target  sets  to  be  excluded  from  consideration  (ITLIM) 
and  pairs  of  excluded  DESIGs  ((DESLIM(1, J)  and  DESLIM(2,J))  where  J 
ranges  from  1  to  ITLIM  are  stored  in  the  TGTLM  common  block.  The 
DESIG  identifiers  are  the  first  two  characters  of  the  DESIG.  All 
targets  whose  DESIGs  are  within  these  bounds  will  be  excluded. 

During  compilation,  the  print  of  this  subroutine  is  suppressed.  In 
this  manner,  the  total  compilation  print  of  the  UTILITY  module  can 
remain  unclassified  even  if  the  common  block  TGTLM  contains  classified 
data. 

There  are  no  executable  statements  so  no  flow  diagram  is  shown. 
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9.59  Function  VALIAR 


PURPOSE: 

To  compute  the  fraction  of  target  value  at 
weapon  time  of  arrival. 

ENTRY  POINTS: 

VALTAR 

FORMAL  PARAMETERS: 

FV(I)  - 

TV(I)  - 
NV 

M 

T 

fraction  of  value  available  at  the  Ith 
component 

time  of  the  Ith  component 

number  of  value  -  time  components  (1-5) 

indicator  of  functional  form  of  time 

curve 

■  1  use  step- linear  form 
*  2  use  exponential  form  (not  presently 
implemented) 

time  for  which  value  is  desired 

COMMON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

RECON, 

EVALPLAN,  PROCCOMP,  CALCOMP,  SALVAL 

Method : 

VALTAR  uses  a  linear  interpolation  formula  to  compute  the  fraction  of 
target  value  remaining  at  weapon  time  of  arrival  (parameter  T) ,  where 
FV  and  TV  are  the  arrays  of  fractional  value  remaining  and  time  forming 
a  step-linear  function  of  fraction  of  target  value  remaining  versus 
time. 

The  logic  of  function  VALTAR  is  shown  in  figure  189. 
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Figure  189.  Function  VALTAR 


8 


9.59.1  Function  VLRADP 


PURPOSE: 

ENTRY  POINTS: 
FORMAL  PARAMETERS: 


COMMON  BLOCKS: 
SUBROUTINES  CALLED: 


1.  Find  lethal  radius  of  weapon 

2.  Set  FN  for  use  by  calling  subroutine 

VLRADA,  VLRADP 

YIELD  -  Yield  of  weapon  in  megatons 
NVN  -  Vulnerability  parameter  of  target 
HOB  -  Weapon  height  of  burst 
FN  -  Parameter  specifying  shape  of  damage 
function 

DPOOL,  PLSTCL 

None 


Method : 

Entry  VLRADA  is  executed  if  called  from  subroutine  CALCOMP  (loaal  param¬ 
eter  IN  is  set  to  nonzero) ;  else  VLRADP  is  executed  (local  parameter  is 
set  to  zero).  VLRADP  entry  implies  air  burst  lethal  radius  is  to  be 
calculated  purely  on  target  vulnerability;  VLRADA  entry  implies  air 
burst  lethal  radius  is  to  be  calculated  based  on  target  vulnerability 
and  scaled  height  of  burst.  Ground  burst  lethal  will  be  calculated 
the  same  for  both  entry  points. 

NVN  is  decoded  into  the  appropriate  vulnerability  number  VN,  the  latter 
(P  or  Q),  and  K-f actor  XK.  The  cube  root  of  the  yield  is  extracted. 

Then  the  adjusted  vulnerability  number  AVN  is  determined  by  methods 
described  in  "Computer  Computation  of  Weapon  Radius,"  B-139-61,  Air 
Force  Intelligence  Center.  FN  is  set  to  six  or  three  for  P  and  Q  type 
targets,  respectively. 

The  natural  logarithm  of  the  lethal  radius  (in  nautical  miles)  of  a 
1-megaton  burst  is  contained  in  arrays  PG,  QG,  QA,  PA,  QOA,  and  PPA. 
Function  VLRADP  interpolates  in  the  appropriate  array  to  find  the 
logarithm  of  the  1-megaton  lethal  radius  for  AVN.  Arrays  PG,  QG,  QA, 
and  PA  are  at  intervals  of  five  vulnerability  numbers.  The  first  index 
of  arrays  QQA  and  PPA  are  also  at  intervals  of  hundreds  of  feet  for  an 
air  burst.  The  lethal  radius  of  the  weapon  is  then  determined  by 
exponentiating  and  multiplying  by  the  cube  root  of  the  yield. 


A  flowchart  for  VLRADP  is  shown  in  figure  189.1 


9.60  Function  XLL 


PURPOSE :  To  convert  latitude  or  longitude  from  DDMMSS  for¬ 

mat  to  decimal  degrees. 

ENTRY  POINTS:  XLL 

FORMAL  PARAMETERS:  CHRIN  -  Input  character  string 

COMMON  BLOCKS:  None 

SUBROUTINES  CALLED;  ABORT 

Method : 

The  input  string  —  CHRIN  —  is  scanned  one  character  at  a  time  until 
one  of  the  characters  "N",  "SM,  "E",  or  "W"  is  found.  Each  time  a  num¬ 
ber  is  found,  it  is  added  to  10  times  the  previous  total.  When  the 
directional  letter  is  found,  the  calculated  total  is  converted  to  decimal 
degrees  and  signed  based  on  the  directional  letter. 

Function  XLL  is  illustrated  in  figure  190. 
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Figure  190.  Function  XLL  (Part  1  of  2) 
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Figure  190.  (Part  2  of  2) 
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9.61  Subroutine  XMATH 


PURPOSE; 

ENTRY  POINTS; 
FORMAL  PARAMETERS; 


COMMON  BLOCKS; 
SUBROUTINES  CALLED; 
Method; 


To  execute  methane t leal  calculations 
XMATH 

X:  Array  of  internal  variables  to  be  used 

in  calculations 

BEGIN:  Index  of  first  instruction  code 

END:  Index  of  end  of  calculation 

C30 

INS GET,  IORFL,  OFVAL,  UNCODE 


This  subroutine  is  best  understood  by  reference  to  figure  191.  Basically 
the  instructions  retrieved  from  INSGET  starting  with  BEGIN  and  ending 
with  END  are  executed.  In  the  process,  values  will  be  stored  in  X 
which  is  used  for  internal  variables.  The  current  value  is  maintained 
locally  in  Q  and  the  new  value  is  stored  locally  in  R.  For  each  instruc¬ 
tion  a  branch  (IBR)  is  set  and  then  the  remainder  of  the  instruction  is 
used  to  determine  the  value  of  R.  Then  the  branch  is  made  and  whatever 
operation  on  Q  and  R  is  called  for  is  carried  out  with  the  result 
placed  in  Q. 


APPENDIX  A 

COP  EXTERNAL  COMiON  BLOCKS 


This  appendix  contains  those  common  blocks  used  to  comnunlcate  between 
the  COP  and  related  modules  of  the  QUICK  system.  The  appendix  contains 
the  following  con&on  blocks: 


o 

CIO 

IDS  Communications  control  block 

o 

C15 

Header  reference  codes 

o 

C20 

Record  type  name  and  number 

o 

C30 

Data  base  attributes 

o 

C40 

Utility  table 

o 

C50 

Display  table 

o 

ERRCOM 

IDS  error  code  control  block 

o 

INS 

Input  Instruction  code  buffer 

o 

IPGT 

Input  card  image  buffer 

o 

OOPS 

Error  flag 

o 

QC 

Data  Module  Quality  Control 

o 

STRING 

Interpreted  input  character  string 

o 

VBINDX 

Data  Module  Quality  Control  Cross-reference 
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BLOCK 

CIO 

C15 

C20 

C30 

C40 

C50 

ERRCOM 


VARIABLE  OR  ARRAY 

IBEFZ 

MQ(2) 

IRECTP 

NQ 

ERCODE 

NQ2 

HEADRF 


RNAME 

RNUMB 

MAIN (306) 


TABREF 
TABLE (100) 

DSFTAB(IOO) 

NORMAC 

CHCKAC 


DESCRIPTION 

IDS  coonunlcations  control  block 

Binary  reference  code,  updated 
whenever  IDS  action  takea  place 

(Not  uaed) 

Record  type  number,  updated  whenever 
IDS  ection  takes  place 

(Not  used) 

IDS  error  code 

(Not  used) 

Header  reference  code.  BCD  represen¬ 
tation.  Variable  Is  type  character 
*8 

Contains  values  for  record  type  INDRCT 
Record  type  name 
Record  type  number 

Contains  all  data  base  attributes. 

Por  precise  attributes  definition 
and  their  addresses  within  the  erray 
see  Users  Manual,  Volume  I 

Utility  table  (TABLEZ) 

TABLE Z  BCD  reference  code  (type  Is 
character^) 

Body  of  table 

Display  table  (DISPDT) 

Body  of  table  (see  section  6) 

Action  to  take  If  error  code  Is  not 
In  list  CHEKS  (ABORT,  FLAG,  PASS) 

Action  to  take  If  error  code  Is  In 
list  CHEKS 


EKDMIT 
NUMCHK 
CHEKS (30) 


Unit  on  which  to  print  error  message 
Ntaaber  of  error  codes  In  CHEKS  list 
List  of  error  codes  to  check 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

IMS 

INSBUP(IOO) 

Input  Instruction  code  buffer 

IMSREF(50) 

Reference  codes  for  input  instruction 
code  tables.  (Type  is  character*8) 

INSTBS 

Number  of  instruction  code  tables 

INSTCR 

Index  number  of  Instruction  code 
table  currently  in  buffer 

IPQT 

POINTER 

Points  to  next  character  of  input 
card  image 

INBUF(80) 

Input  card  image.  Each  letter  is 
stored  in  separate  word 

SPCIAL 

Switch  which  controls  use  of  '+' 
and  (true  if  preceding  input 

string  was  an  operator;  else  false) 

ENDSW 

End  of  input  switch 

OOPS 

ERROR 

Error  flag,  causes  COP  to  check  only 
syntax  when  on 

QC 

Used  to  pass  statistics  on  data 
module  quality  control 

ITCNT 

Count  of  the  number  of  create,  change 
and  delete  transactions  processed  by 
the  data  module 

IRACNT 

The  number  of  records  affected  by  a 
single  transaction 

IRTA(30) 

An  array  containing  unique  record  types 
affected  by  a  single  transaction 

LCNT 

The  nunber  of  lines  to  be  printed  per 
page  on  the  output  listing 

IRTYP 

A  variable  used  to  keep  track  of  unique 
record  types 

STDE 

Represents  the  side  which  is  effected 
by  the  transaction  (Blue  or  Red) 
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BLOCK  VARIABLE  OR  ARRAY 

STRING  TYPE 


VALUE 

NUMBER 


DESCRIPTION 


Current  input  string's  type  (not  the 
attribute  of  the  same  spelling).  If 
output  from  subroutine  GETSTR  results 
are: 

-1,  operator 

-2,  long  string  delineates 
■9,  alphabetic 
■10,  numeric 

Identifying  value,  depends  on  type 
of  string 

Floating  point  value  if  string  type 
-10 


ALPHA 


Character  string  being  interpreted. 
Will  be  blank  if  string  type  -1 
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APPENDIX  B 


EXECUTABLE  JOB  CONTROL  LANGUAGE  (JCL) 
QUICK  SYSTEM 


The  QUICK  system  executes  from  a  temporary  H*  which  is  assembled  from 
object  decks  (C*s)  which  are  stored  on  permfiles.  Figure  194  contains 
the  necessary  JCL  to  execute  the  QUICK  system  from  these  object  decks. 

The  object  files  COP,  BOOT,  ERRFND,  and  INPTRN  are  required  for  every 
QUICK  run.  Other  modules  should  be  selected  as  needed. 

A  composite  listing  of  the  JCL  required  to  compile  the  QUICK  source  decks 
to  create  the  object  decks  is  listed  In  figure  195.  each  section  between 
$  LINK  cards  can  be  compiled  separately. 

The  QUICK  utility  programs  are  contained  in  the  QUICK  utility  library 
file.  JCL  to  create  this  file  is  listed  in  figure  196. 
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I  SENT  1 $203 13/33/358  4*QU I CK  RUN  JCL  »C314 

USER1R  R  J SHI  31 60S SPAS  SMORR 

PARAR  12343 

StLCCT  631IRPO0/»ERF9RN/ReSTOAE 
M»U  RR,R/M#R*631  IRP03/RU1K/COP/I  D$ 

OPTION  FORTRAN 

L ONLOAD 

I I  SMART  UL»Pl 

ENTRY  . 

PRMFL  C*  #M*S»634IRPOO/RUIK/OB JECT/COP 

IRS  RECK 

TILE  *3»Xl R» 100R 

PRMFL  t  *  »U»  S#  634 IRPOO/RU  IK/OB  J  EC  T  /  ORAT  A 

USE  .ONAX  /  I /*.0AREA/3126/».  RMIM/ 1/».FRRD. 

LINK  BOOTY 

PRMFL  C*#U#S»6341RP30/6U  IK/OR  JECT /BOOT 

LINK  TABSTR.B09TT 

USE  TABLI /80t/ 

LINK  ERRF 

PRMFL  C«#M#*,6S4|RPOO/OUIK/OBJECT/ERRFNR 
LINK  I HPT#  ERRF 

PRMFL  C»#M»S#634|RPOO/6UIK/OBJECT/INPTRN 
LINK  NOBULErTABSTR 

LINK  JLHsflORULE 

PRMFL  t  »  «U»S»  634 IRPOO/OUl K/ OBJECT /  JLN 

LINK  ASS1 

PRMFL  C • «ti»  S»634 IRP30/OUIK/ OBJECT / ASSI 6N 
LINK  SELE* ASSI 

PRMFL  {•#N#S»O34IBP0O/RU  IK/ OBJECT/ SELECT 
LINK  ASTE'SELE 

PRMFL  C»»M»S,634IRP30/OUIK/OBJECT/ ASTERISK 
LINK  NORULE.JLN 

LINK  -  DATA, MODULE 

PRMFL  t • #M»  5*634 IRPOO/RUIK/OB/EC  T / R  ATA 

LINK  RATARL 

PRMFL  C*  »U»S»  634 1 RP30/RU IK/OBJECT / RELE  TE 

LINK  RATACH»RAT  ARL 

PRMFL  C*«M#S#634IRPOO/RUIK/OB JECT/CNANSE 
LINK  RATACR«RATACH 

PRMFL  C«#N»S. 634 IRP30/RUIK/OBJECT/C REATE 
LINK  MQRULEvBATA 

LINK  RBHORfNORULE 

PRMFL  C  *#N»S»634 IRP30/BUIK/OBJECT/ RBMOR 
LINK  NORULE'RBMOR 

LINK  1NRXE  R#MOt  ULt 

PRMFL  C*  S»634IRP30/BUIK/OB JECT/ I NRE  XE  R 

LINK  MOSUL  I*  INRXER 

LINK  PL ANS«NORULE 

PRMFL  C *  »M»  S» 634  I RPOO/RW IK/OB J ECT/ PLAN SE  T 

LINK  MORULEfPLANS 

LINK  PRCPrMOBULE 

PRMFL  C»#N»S#634IRP30/RUIK/0BJECT/PREPAL0C 
LINK  NORULE.PREP 

LINK  ERIT/MORULE 

PRMFL  C«»M#S»634IRPOO/BWIK/OBJSCY/ERITRB 


Figure  194.  QUICK  Execution  JCL  From  Object  Decks 
(Part  1  of  4) 


696 


CH 


LINK  f NORMA 

PANEL  C  * *U * S* 63*  IBPOO/QU I K/OB JEC  T/ NORN AL 

LINK  C6CNE0*EN0RHA 

PANEL  C  *  »U»  S* 63410 P30/8U I  K/OB  J  SC  I/GENE  BIT 

LINK  EPA0CE*E6ENE0 

PANEL  C  *  »U»  S»  634 IOP30/OUIK/OB  JECT/PROCEBIT 

LINK  ECOUNT*£PROCE 

PANEL  C • *H* $* 634 10P30/OU I K/OB JECT /COUNTS 

LINK  NOOULE*EB1T 

LINK  R  E  POR  T*  NOBUL  E 

PANEL  C»»U»S»634IBP30/8U I K/OB JECT /REPORT 

LINK  RPTOSN 

PANEL  C*  *W*S*634 IRP30/SU IK/ OBJECT /DESIGN 

LINK  RPTAL  T*  RPTOSN 

PANEL  C  •  »U» S» 6341 BP30/0UI K/OB J  EC  T /ALTER 

LINK  RPTONK* RPTAL  T 

PANEL  C  *  »W* S*634 10P3O/ 3UIK/ OBJECT/OS PH AK 

LINK  RPTPRN»RPTOHK 

PANEL  C*  »W»  S»  634  IOP30/OU I  K/OB  JECT /POINT 

LINK  NOOULEfREPORT 

LINK  $RH*HOOULE 

PANEL  C**«*S»634IBP30/OU1K/OB JECT/ SAN 

LINK  NOOULE*SR* 

LINK  EIH*HOOULE 

PANEL  C**U»S*634IOP30/8UIK/OBJBCT/EIH 

LINK  BSIDAC 

PANEL  C»*U*S*634IBP30/OUIK/OBJECT/SIBAC 

LINK  B0THER*BS10AC 

PANEL  C**W*S*634 10POO/QUIK/OB JECT/BLBO  TN 

LINK  BT  ABLE* BOTHER 

PANEL  C**U*S«63410P30/0UIK/0B JECT /TABLE 

LINK  PL OTT TESTABLE 

PANEL  «• *U* S* 634 10POO/OU IK/OB JECT/ PLOT  BATA 

LINK  PL OT I  T*  PLOT T  T 

PANEL  C*  «W*$«634  IOP30/SU I K/OB JECT /PLOT  I T 

LINK  NOBUL  E*  E1N 

LINK  ALOC*  HOBULE 

PRNEL  C • »H» S » 634 1 0 P3 O/O U IK/ OBJECT /ALOC 

LINK  ALCINT 

PRNEL  C**H«S«634IBP30/BUIK/0B JECT/ ALCINT 

LINK  ALCHUL*  ALC  INT 

PRNEL  C**N*S*6341BP30/OUIK/OB JECT/ ALCHUL 

LINK  E6B 

PANEL  C**H*S*634IOP0O/0U IK/OB JECT/ EBB 

LINK  $C0*E60 

PRNEL  C*  *M»  $*634 IBPOO/BUI K/OB J  ECT/SBB 

LINK  ST  AL*  S6B 

PRNEL  C**N*S*634IBPOO/BUIK/OBJECT/STAL 

LINK  BEEAL*STAL 

PANEL  C • *N* S* 634 IBP30/9U IK/OB JECT/ BEEAL 

LINK  HOBULE*ALOC 

LINK  EVAL*NOBULE 

PANEL  C  *  *W*  S*  634  !BP3  O/O  Ui  K/OB  JECT/EVAL  ALOC 

LINK  NOBULE*EVAL 

LINK  BO ISEL* NOBUL E 
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PRNFL  C**M*S*634IOP30/OUIK/OBJECT/AIOCOUT 
LINK  OFFSET 

PRNFL  C*  *U*S*634IDP00/OUIK/OB.>ECT/OF,'$ET 

LINK  AS6$ET*0FFSET 

PRNFL  C * *W*S. 63* 1DPOO/3U IK/OBJECT/ A S&SET 

LINK  NINI0*AS6SET 

PRNFL  C*»W»S»634I DP 00/ JO IKFOBUECT/NtNtO 
LINK  NOOUL  E*  DGZ  SEL 

LINK  POST/NOOULE 

PRNFL  t**M*S»634IOP00/6UlK/OBJECT/POST ALOC 
PRNFL  C«*W*S.63*IOP3O/3UIK/O0JECT/POSTALO2 
LINK  NODULE*  POS  T 

LINK  FOOT*NOOULE 

PRNFL  C**M*S»63*lOP30/DUlK/0BJECT/F0OTPRNT 
LINK  OPTS 

PRNFL  C  *  *U*  S*634 1DP00/QUI K/OBU  ECT / F  OOT  OPTS 
LINK  SE  TSsOPTS 

PRNFL  C*  *W*  S* 63 A JDP30/DUIK/OBJECT/F OOTSE  T$ 

LINK  PLAN, SETS 

PRNFL  C  *  *U*  S*  634  !  OPOO/OU  IK/OBJ  EC  T  /  F  OOT  PLAN 

LINK  ASGN.PLAN 

PRNFL  C * *W*  S*634 IDPOO/OU IK/OB  U£C  T /FOOT  AS6N 
LINK  NODULE*  FOOT 

LINK  NOUNP  .NODULE 

PRNFL  C**W»S»634IDP30/GUIK/0BJECT/HIRVDUNP 
LINK  NODULE*  NOUN* 

LINK  PLANO.NODULE 

PRNFL  C**H*S*63AIDPOO/DUIK/OBUECT/PLANO 

LINK  PL  NT 

PRNFL  C*  *M*  S*  634 1OP00/OU I K/OB JECT/PLNT 

LINK  INTR*PLNT 

PRNFL  C**U*S*634IDP0O/DUIK/OBJECT/INTR 

LINK  TANK*INTR 

PRNFL  C * *U« S# 63* 1DP30/JJ IK/OBJECT/ TANK 

LINK  NODULE*PLANO 

LINK  ONAKE*NOOUL£ 

PRNFL  C**U*S*63AIDPOO/OUIK/OBJECT/DATANAKE 

LINK  NODULE,  ONAKE 

EXECUTE  0UNP,DEBU6*RREST*JREST 

FILE  H**H1$*7Sr 

FFILE  P*  »LGU/ C06»*2*  *3*1 1*12*13) 

PRNFL  UL.N.N.R34IDP00/QUIK/LIBNAN  V/UTIL 

PRNFL  PL*R*S*LIBRARTFPlOTLIB 

PRNFL  QD.R/W.N.tlAIOPOQ/QUIK/COP/IDS 

FILE  1D*X19S*30L 

FFILE  19*NBUFFS/2*N0SLEW 

DATA  I* 

TAPED  15* T1JD*»612*3»*0UT PUT-TAPE 

TAPED  32  TS 2D »*18D43»»RE STORE “TAPE 

TAPED  33*T33D**1D7A0**SAVE-TAPE 

TAPED  35»T35d»*62*33»»0UTPUT-TAPE 

TAPED  36*T3 60 **55741**001  PUT-TAPE 

LINITS  75»7BK,-*K»51K 

file  25*X2SS*150R 

file  21 »X21S*S0L 
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1620310/30/0S77,OUlCK  COMPILE  JCL 

DJ3NI314CSSP A$$ WORD 

FORTRAN 


MAP,XR£F,OECk 
10,32k, ,10k 

C»,W,S,631 IDPXO/DUAL/OBJECT/COP 
63 IIOPXO/DUAL/  SOURCE/ CO P/C OP 
63 1 I DPX O/DUAL/  SOURCE /CO P/I NSPUT 
631  ID  PX  O/DUAL/ SOURC  E/C  OP/MOOGET 
63 1 1DPXO/DUAL  /  SOURCE/COP/HDF  N  D 
63 1IDPX0 /DUAL /SOURCE /COP /INI  COP 
631 IDPXO/DUAL/  SOUR  CE /COP /ERP  ROC 
631 IDPXO/DUAL/ SOURCE/COP/BANNER 
631 IDPxO/OUAL/ SOURC  E /C  OP/tNPRIN 
DECK 

10,36k, ,23* 

•  3,X1R,  100R 

C*,W,  S,631  I DPX O/DUAL/ OB JECT/QDATA 
631 IDPXO/DUAL/ SOUR CE/COP/BDAT A 
631 1DPX0 /DUAL/ SOURC  E/COP/BDAT  B 
.BHAX/1/,.OAREA/3126/,.OMIN/1/,. FRRD. 
BOOTT 

MAP, XREF, DECK 
10, 32K, ,10K 

C*,U,$,631IOPxO/OUAL/OBJECT/BOOT 
631 IDPXO/DUAL /SOURCE/ CO  P/BOOT 
TABSTR,  BOOTT 
TABLI /BOB/ 

ERRF 

MAP, XREF, DECK 
10,32k, ,10K 

C  *  ,U,  S,  631 1DPX0/DUAL/0BJECT/ERRFND 
631IDPX O/DUAL/ SOUR  CE/ CO P/ERR  FND 
631  IDPXO/OUAL/ SOURCE /COP/UEBSTR 
63  1IDPX0/DUAL/ SOURCE/COP/SYNTAX 
63 1I0PX0/0UAL/ SOURC E/COP/TAB  I  NS 
631 IDPXO/OUAL/ SOURC E/COP/LNGSTR 
INPT, ERRF 
NAP, XREF, OECK 
10, 32K, ,13K 

C*,U,  S,631  1 OPXO/DUAL/OB  /  EC  T  /  I  NPT  RN 
631  IDPXO/DUAL/ SOURCE/ COP/ INPTRN 
631 IDPXO/OUAL/ SOURCE/COP/INHATH 
63  1IDPX0/DUAL/ SOURCE /COP/DEL  TAB 
631 IDPXO/DUAL/ SOUR CE/COP/PARLEV 
631IDPX0/DUAL/ SOURC  E/COP/TASGET 
6  31 IOPX O/DUAL/ SOURCE/ COP/LINE  10 
MODULE, TABSTR 
JLM,NOOULE 
MAP, X  RE F,OECK 

C  •  ,W,  S,  631  IOPX  O/DUAL  / OB  JECT/JLM 
01 ,2AK,,SX 
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631 lOPXO/OUAL/ SOUR CE/JLH/JLM 
ASS! 

NAP, XREF, OECK 

C«,U«S, 631 1 OPxO/OUAL/OB JECT/ ASSIGN 

01,30k,,3k 

631 lOPXO/OUAL/ SOURCE /JL M/ASSIGN 
631 IDPXO/OUAL/ SOURCE/ JLM/ALPH  AS 
631 10 PxO/OUAL/ SOURCE/ JL M/PLAYERS 
63 1  lOPXO/OUAL  /  S0URCE/JLN/TDPR1NT 
SELE.ASSI 
NAP, XREF, DECK 

C«,U, S,631 IDPXO/OUAL/ OB JECT/ SELECT 
01 ,28k. ,9k 

631 IDPXO/OUAL/  SOURCE/ JL  M/SELECT 
63 1 IOPX O/DUAL/ SOUR CE/JLM/OE FAULT 
631 10 PxO/DUAl/ SOURCE/ JLM/ADT08AS  E 
631 IOPX 0/OUAL/ SOURCE/ JLM/SANSET 
631  lOPXO/OUAL  /  SOURCE/ JLN/KRUNCH 
AS  TE,  SELE 
MAP,X  RE  F,DECK 

C*,U,S,631 IDPXO/OUAL/ OB JECT /ASTERISK 
0S,2iK,,SK 

6311DPX0/DUAL/S0URCE/JLM/ASTERISK 

NOOULE,  JLH 

DATA, MODULE 

NAP, XREF, DECK 

10,32K, ,10K 

C*. U,  S,  631  lOPXO/OUAL/OB  JECT /DATA 
631 lOPXO/OUAL /SOURCE/ OAT  A/ ENT  MOO 
OATAOL 

MAP, XREF, OECK 

10 ,32k, ,10k 

C • ,U,S,631 IDPXO/PUAL/OS JECT/ DELETE 
6 31 IOPX O/DUAL /SOURCE/ OA TA/OELETE 
OATACH, OATAOL 
NAP, XREF, OECK 
10,32k, ,13k 

C*,W,S,6J1  lQPxO/DUAL  / OBJECT/C  MANGE 
631 IOPXO/DUAL/ SOURCE/DATA/CHANGE 
631IDPX0/DUAL/S0URCE/0ATA/VALPUT 
631 IOPX 0/OUAL/ source/oata/oessch 
631 lOPXO/OUAL/ SOURCE/0 AT A/NX  TOES 
OATACR, OATACH 
MAP, XREF, OECK 
TO, 32k, ,10k 

C *,U,S, 631 1 OPXO/OUAL/OB JECT/ CREATE 
631 IDPXO/OUAL/ SOURCE/ OAT A/C  RE  ATE 
63 1 IDPXO/OUAL/ SOURCE /OAT A/ VAL PUT 
NODULE,  OAT  A 
0(1  MOO, NOOULE 
NAP, XREF, OECK 

C*,U,S,631 I OPXO/OUAL/OB JECT/ DBMOO 
01  ,31k, ,3k 

6 31 lOPXO/OUAL/ SOUR C E/OB MOO/ OBMOD 
631 lOPXO/OUAL /SOURCE/OBMOO/OE STAB 
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LINK  MOBUL  E,  BBMOO 
LINK  INBXER,NOBULE 
FORTY  NAP.XRE F.OECK 
LINUS  02,35K,,25K 

PRMFL  C »»W,  S, 631 1 OPXO/BUAL/OB J ECT / INDEXER 
SELECT  631 IBPXO/BU*L/ SOURCE/ I NBEXER/ IMOEXER 
SELECT  63 1IOPXO/OUAL/ SOURCE/ 1  NBEXER /COMPLEX 
SELECT  631 IBPXO/BUAL/ SOURCE/ INOEXER/SETVAL 
SELECT  63 1 1BPX  O/BURL/ SOURCE/ 1NBEXER/CRT8LE 
LINK  MOOULE, 1N0XER 
LINK  PL  ANS  , MOOULE 
EORTT  NAP,XREF,OECK 
UNITS  -02,*4K,,30K 

PRNEL  C  *  ,W,  S,63t IBPX0/BUAL/08JECT/PLANSET 
SELECT  63 1 1 OPXO/BUAL / SOUR CE/PLANSET /PLANS ET 
SELECT  631 16 PXO/BUAL/ SOURC E/PL ANSET /GRP  EH 
SELECT  63 116PX0/BU*L/ SOUR C E/PL ANSET/SRTTGT 
SELECT  631 IBPXO/BUAL /SOURCE/PL ANSET /CAL CONP 
SELECT  631 IBPXO/BUAL/ SOUR CE/PLANSET /AOi US  TCP 
SELECT  631 IBPXO/BUAL/ SOURCE/PL ANSET /PRI  NT 6P 
SELECT  631 IBPXO/BUAL/ SOURCE/PL ANSET /TANKER 
LINK  MOOULE, PLANS 

LINK  PREP,MOOULE 

FORTY  HAP,XR£F,OECK 
LIMITS  10  *35  K, ,14K 

PRMFL  C  *  *U*S*631 IBPXO/BUAL/ OB J ECT /P REP AL  OC 
SELECT  631 IBPXO/BUAL/ SOURCE/PR EPALOC /PR EPALOC 
SELECT  631 1 OPXO/OUAL/ SOURCE/ PR  EPALOC/ FI  xwEP 
SELECT  631IBPXO/OUAL/SOURCE/PREPALOC/CHOBAS 
SELECT  631 IBPXO/BUAL/ SOURCE/ PR EPALOC /GEOPREP 
SELECT  631 IBPXO/OUAL/ SOURCE/PR EPALOC /GEOIN 
SELECT  63 110 PXO/OUAL /50URCE/PREPAL0C /WE  PIN 
SELECT  631 IBPXO/BUAL/ SOURCE/PR EPALOC /SETNO 
SELECT  631 IBPXO/BUAL /SOURCE/PR EPALOC /WE PPREP 
SELECT  631IBPX0/BUAL/ SOUR  CE/ PR  EPALOC /PRNPRP 
LINK  NOOULE*PREP 
LINK  EB IT*MO  BULE 
FORTY  HAP, XREF. BECK 
LIMITS  02*30K**10k 

PRMFL  C*,W,S,6J1 IBPXO/BUAL/ OB JECT/EBITBB 

SELECT  631IOPXO/OUAL/SOURCE/EB ITBB/EBITB8 

LINK  ENORNA 

rORTY  MAP, XREF. BECK 

LIMITS  01 ,30k, *10K 

PRMFL  C«,w,s,631  IBPXO/BUAL/ OB  i  ECT/ NORMAL 
SELECT  63 1IBPX0/BUAL/ SOUR CE/EO I TOB/ NORMAL 
LINK  EGENEO, ENORNA 
FORTY  MAP,XREF,OECK 
LIMITS  01 ,39K, ,1  OK 

PRMFL  C*,V,  $,631  lOPXO/OUAL/OBJECT/GENEDI  T 
SELECT  63 1 1BPXO/BUAL/ SOURC E/EB  I TBB/GENE 01 T 
SELECT  63 1 IBPXO/BUAL / SOURC E/EB ITBB/BUILOTAS 
SELECT  63 1 1BPXO/BUAL/ SOURCE/EB  I TBB/SETF LB 
SELECT  631 IBPXO/BUAL /SOURCE/EBI TBS/ SWITH 
SELECT  631 IBPXO/BUAL/ SOURCE/EB I T6B/ FORNLOC 
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LINK  EPROCE, EGENED 
FORTY  NAP.XRE F.DECK 
LIMITS  01 ,30K,  ,10k 

PRMFL  C»»U»S»631 fOPxO/OUAl/O0 /ECT/PROC  CO  I T 
SELECT  631 10PX0/0UAL  /  SOURCE  /  E D I TDB/  PROC  EBIT 
SELECT  63 1IOPXO/OUAL/ SOURCE/ EDI  TDB/ XUITH 
LINK  ECOUN  T.EPROC  E 

FORTY  MAP.XREF.DECK 
LIMITS  01.30K..10K 

PRMFL  C *,W, S, 631 1 DPXO/OUAL/OBJECT/ COUNTS 

SELECT  63 IIOPXO/OUAL/ SOURCE/ED  I TDB/COUNTS 

LINK  MODULE, EDIT 

LINK  REPORT. MOOULE 

FORTY  MAP. X  RE F. DECK 

LIMITS  10. 32K. .10K 

PRMFL  C «,U,S,631lOPXO/OU At/OBJ  EC T /REPORT 

SELECT  631 10PX O/OUAL/ SOUR C E/RE  PORT/ E NTNOO 
SELECT  631  IDPXO/DUAl/  SOURC  E/REPOR  r/OSPPl/T 
SELECT  631 10 PXO/DU«L/ SOURC E/RE  PORT/ TABNNT 
LINK  RPTOSN 
FORTY  MAP.XREF.DECK  . 

LIMITS  10.32K..13K 

PRMFL  C«.W.S. 631 IDPXO/DUAL/ OBJECT/ DESIGN 

SELECT  63 IIOPXO/DUAI/ SOURC E/RE  PORT /DESIGN 
LINK  RPTALT.RPTDSN 
FORTY  MAP.XREF.DECK 
LIMITS  10.32K..10K 

PRMFL  C R.U.S. 631 lOPXO/DUAL/OB/ECT/ ALTER 
SELECT  631 IDPXO/DUAL/ SOURCE/RE  PORT /ALTER 
LINK  RPTONK.RPTALT 
FORTY  MAP.XREF.DECK 
LIMITS  10.32K. .10K 

PRMFL  C  * .U.S.631 1 OPXO/DU At/08  FECT/DSPMAK 
SELECT  631 IDPXO/DUAL/ SOURCE/RE PORT/ DSPHAK 
LINK  rptprn.rptdnk 

FORTY  MAP.XRE F.OECK 
LIMITS  10.32K. ,13K 

PRMFL  C«.W.S.631 I DPXO/OUAL/ OBJECT/PRINT 
SELECT  631 IDPXO/OUAL/ SOURC E/RE  PORT/PRINT 
SELECT  631  IDPXO/DUAL /SOURCE/ RE  PORT/ XDEFN 
SELECT  63 1 IDPXO/OUAL/ SOURC E/RE PORT /PRMATD 
LINK  MODULE, REaORT 
LINK  $RM, NODULE 

FORTY  MAP.XREF.DECK 
LIMITS  1O.32K..10K 

PRMFL  C*,W,S,631 IDPXO/DUAL/OB JECT/SRN 

SELECT  631 IDPXO/DUAL /SOURCE/ SRM/SRN 

LINK  NOOULE, SRN 

LINK  E IN, NODULE 

LIMITS  10.32K..20K 

FORTY  MAP.XREF.DECK 

LIMITS  10.32K. .10K 

PRMFL  C*. U.S.631 lOPXO/DUAL/OB JECT/E IM 
SELECT  631 IDPXO/DUAL/ SOUR CE/EI M/ENTMOD 
LINK  BSIOAC 
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FORTY  NAP, XREF. BECK 
LIMITS  10,32K,,19K 

PRMFL  C»,U,S,631I0PX0/BUAL/OBJ£CT/$ IDAC 
SELECT  631 IOPxO/BUAL/ SOURCE/E  I M/SIBAC 

link  bother, bsibac 

FORTS  MAP,XRE  F»0ECK 
LIMITS  1C,32K,,10K 

PRMFI  C *  ,H,  S,  631 I BPX0/BU AL/08 J  ECT/BL60TH 
SELECT  631 1RPX0/BUAL/ SOUR CE/ElH/BLPOTH 
SEL'.CT  631I0PX0/PUAL/  SOUR  CE/EIN/KEBEFN 
L I F/FC  STABLE, BOTHER 

FORTY  MAP, XREF, BECK 
LIMITS  10,32K,,10K 

PRMFL  C*,B,S,631  lOPXO/DUAL/OBJECT/ TABLE 
SELECT  631I0PX0/6UAL/ SOURCE/ El  M/TABLE 
LINK  PLOTT  T, 6TABL  £ 

FORTY  HAP, XREF, DECK 
LIMITS  10,32K,,10K 

PRMFL  C*»M,S,631IBPX0/6UAL/OBJECT/PLOTOATA 
SELECT  631I6PX0/6UAL/ SOUR CE/E IN/PLOT  BATA 
SELECT  631 10 PXO/OUAL/ SOURCE /E I  M/PI  C  S 
SELECT  63 1 1B PX O/BUAL/ SOURCE / E I  M/PRO J C T 
SELECT  6 31 lBPXO/BUAL/SOURC E/E  I M/HOUSKEEP 
SELECT  631 IBPxO/BUAL/ SOURCE/E  IN/PIECE  IT 
SELECT  631 IB PxO/B UAL/ SOURCE/ E IM/PtECENUM 
LINK  PLOTIT.PLOTTT 

FORTY  MAP,XREF,BECK 
LIMITS  10,32K,,10K 

PRMFL  C*,U, S, 631 1BPX O/BUAL/ OBJECT /PLOT  IT 

SELECT  631IBPX0/BUAL/S0URCE/EIN/PL0T1T 
SELECT  631 I0PX0/BUAL /SOURCE /E I M/INTRPL 
SELECT  631 IBPXO/BUAL/ SOURCE/E  I H/PLBLOFF 
SELECT  631 IBPXO/BUAL/SOURCE/E I H/SUBPLOT 
SELECT  631I0PX0/BUAL/S0URCE/EIM/SUBREA0 
SELECT  63 1 1BPXO/BUAL /SOURCE/E  I M/FNBSRT 
SELECT  631 IBPXO/BUAL/ SOURCE/E  IN/PLOT  INI T 
SELECT  631 IBPXO/BUAL/ SOURCE/ E I  M/PIC  S 
SELECT  631 IBPXO/BUAL/ SOURC  E/E I H/PRO J  C  T 
SELECT  631 IBPXO/BUAL/ SOURC E/E I M/HOUSKEEP 
SELECT  63 1 1BPXO/BUAL/ SOURCE/E  I N/PIEC El T 
SELECT  631 IBPXO/BUAL /SOURC E/E I  M/PI ECENUM 
LINK  MOOULE,EIM 

LINK  ALOOHOOULE 

FORTY  HAP, XREF, BECK 

LIMITS  10 ,32K, ,10K 

PRMFL  C*  ,U,  $,631 IBPXO/BUAL/OB  JECT/ ALOC 

SELECT  631 IBPXO/BUAL/ SOURCE/ ALOC/ ALOC 

LINK  ALCINT 

FORTY  MAP, XREF, BECK 

LIMITS  10,32K, ,20K 

PRMFL  C *, H, S, 631 IBPX 0/0  UAL/OB JECT/ ALCINT 

SELECT  631  IBPXO/BUAL/ SOURCE/ ALOC /IN  I  TAL 
SELECT  631 IBPXO/BUAL/ SOURC E/ALOC/CNCLST 
SELECT  6311 BPXO/BUAL/-SOURC  E/ AL  OC/BA  T  GRP 
SELECT  A3 1 1BPXO/BUAL /SOURCE/ ALOC/FLOCRS 
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LINK 

FORTY 

LIHITS 

PRNFL 
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03  1 IOPXO/OUAL /SOURCE/ ALOC/NRV RSI 
631 IOPXO/OUAL/ SOUR CE/ALOC/PRNPUT 
631 lORXO/OURL/ SOURCE/ ALOC/RDHUL 
6 31 IOPX  fl/OUAL/ SOUR  C  E/ *L OC/ RD  PRNZ 
63 1 IOPX 0/OUAL/ SOURCE/ AL  OC/RO  SE  T 
631  It  PX0/6UAL/ SOURCE/ ALOC/ROSNAT 
63  1 10PX0/6UAL / SOUR CE/ ALOC /RNG ALT 
6311 tPXO/OUAL/SOUR  CE/ALOC/SET  ABL  E 
631 It PXO/tUAL/ SOURCE/ ALOC/TINEPRT 
AL CNUL'ALCIYT 
HAP,XRE F,DECK 
10,32k,,23k 

C*,V,$,631 10P«0/6U*L/0B JECt/ALC«UL 
63 1 1tPXO/tUAL  /  SOUR  CE/ AL  OC  /MUL  CON 
63  lit  PXO/tUAL/ SOUR  CE/AL0C/A06SAL 
631  It PXO/tUAL/ SOUR  C  E/ ALOC/ASG  OUT 
631  It PXO/tUAL /SOURCE/ALOC/OONPRN 
631 IOPXO/tUAL/ SOURCE/ ALOC /PRNT ALL 
631 It PXO/tUAL/ SOURCE/ ALOC/PRNTCON 
631 IOPXO/OUAL/ SOURCE/ ALOC/PRNTNOU 
631 ItPXO/OUAL/ SOUR CE/ALOC/TABLENUP 
F  GO 

NAP,XREF,OECK 

10,32k,#20K 

C»,W,S,631  lOPXO/OUAL/OB  JECT/FGD 
631 IOPXO/OUAL/ SOUR CE/ALOC/FRSTGO 
631 IOPX  0/OUAL/ SOUR  CE/ALOC/CROCAL 
631 IOPXO/OUAL/ SOUR CE/ALOC/FLGCHK 
631 IOPXO/OUAL/ SOURCE/ ALOC/ IN  I CRO 
631 IOPXO/OUAL/ SOURCE/ ALOC/RTAPCK 
631 ItPXO/OUAL /SOURCE /ALOC/PK CALC 
631 IOPXO/OUAL /SOURCE/ At OC/PRNTOF 
63 irtPxO/OUAL/ SOURCE/ ALOC /RE  CON 
631 IOPXO/OUAL /SOUR CE/ALOC/SET PAY 
SGO,FGD 
HAP, XREF, DECK 
10, 32k, ,10K 

C‘,W,S,631 lOPXO/OUAL/OBJECT/SGO 
631 IOPX 0/OUAL /SOURCE/ ALOC/SCNOGO 
631  IOPXO/OUAL/ SOURCE/ ALOC/RTAPCK 
631 IOPXO/OUAL/ SOURCE/ ALOC/RE CON 
631 IOPXO/OUAL/ SOUR  CE/ ALOC /SET PAY 
ST  AL,  SCO 
nap,xref,oeck 
10,32K, ,20k 

C*,H,S,63TIOPXO/OUAL/OB/ECT/3TAL 
631 IOPXO/OUAL/ SOURCE/ ALOC/ST ALL 
631 iopxo/oual/source/aloc/fornat  s 
631IOPXO/OU*L/SOURCE/ALOC/FNUP 
63 1 IOPXO/OUAL/ SOURCE/ ALOC /LANGE T 
631  ItPXO/OUAL /SOUR  CE/ALOC/PRENIUNS 
631  IOPXO/OUAL/ SOURCE/ ALOC/PR  tlTOS 
631I0PX 0/OUAL/ SO JR CE/ALOC/SALVAL 
63 1 IOPXO/OUAL/ SOUR CE/ALOC/VAO 
631 IOPXO/OUAL/ SOJRCE/ALOC/UAOOUT 
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PRNFL 

SCLCCT 

SELECT 

SCLCCT 

SCLCCT 

SCLCCT 

SCLCCT 

SCLCCT 

LINK 

LINK 

fORTY 
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SCLCCT 

SCLCCT 

SCLCCT 

SCLCCT 

SCLCCT 

SCLCCT 

SCLCCT 

LINK 

FORTY 

UNITS 

PRNFL 

SCLICT 

LINK 

FORTY 


OC  FAL.STAL 
NAP,XRE F,RECK 
10,32K,,10K 

C*,V,  $,631  IOPXO/OUAL/ OBJ  EC  T/OCFAL 
631 IOPXO/OUAL/ SOURC  E/ RLOC/OC  F  RLOC 
63 1IDPXO/DUAL/ SOURCE/ ALOC/FNUP 
63 IIOPXO/ DUAL/ SOUR  Cl/ AL  0 C/LAN 6ET 
631  IOPXO/OUAL/ SOURCE/ ALOC/PREHIUNS 
631 IOPXO/DUAL/ SOURCE/ ALOC/PRN TOO 
63 1 1OPXO/OUAL/ SOURC E/ AL OC/RC  S VAL 
631I0PX0/0UAL/ SOURCE/ ALOC/SAL  VAL 
NO RULE* ALOC 
CVAL.NODULC 
NAP, XREF, DECK 

C«»M» S»631 iopxO/oual/object/evalaloc 

01,*0K,,10K 

63 1 1BPXO/OUAL/ SOURCE/E V  ALALOC /EV AL  ALOC 

631 iopko/bual/source/evalaloc /evalplan 
631 IOPX  O/BUAL/SOURCE/Ev  ALALOC /E  VAL  2 
631 IOPXO/OUAL/ SOURC E/EV ALALOC /PREVAL 
631 I0PX0/6UAL/ SOURCE/C V ALALOC /SSSP CALC 
6  31 IBPXO/BUAL/ SOURC E/E V  ALALOC / T6  TNOOl F 
631 IOPXO/OUAL/ SOURCE/C V ALALOC /WPNNOOIF 
NODULE,  EVAL 
OGZSEL, NODULE 
HAP,XRE  F,DECK 
02, 35K,, 30A 

C»,W,S,631  IOPxO/DUAL/OR  JECT/ ALOC  OUT 
631 IOPXO/OUAL /SOURCE /ALOCOUT / ALOCOUT 
OFFSET 

NAP, XREF, DECK 

02, 35K,, 30K 

C  * ,W,S,631 lOPKO/OUAL/OBJECT /OFFSET 
631 IOPXO/DUAL/ SOURCE/ ALOCOUT /CONPR ESS 
631 IOPXO/DUAL/ SOURCE/ ALOCOUT /CUN  I NV 
631I0PK0/0UAI/ SOURCE/ ALOCOUT/  062 
631 IOPXO/DUAL/ SOURCE/ ALOCOUT/ ERGOT  1 
631 IOPXO/DUAL /SOURC E/ AL OCOUT / F INOM IN 
6  311 OP*0/OUAl / SOURC  E/ ALOCOUT / F 2BHI N 
631 IOPXO/OUAL/ SOURCE/ ALOCOUT/ CRA OF 
631 IOPXO/OUAL /SOURCE /ALOCOUT /NOVE 
631 IOPXO/OUAL /SOURCE /ALOCOUT/ PER TBLO 
631 10  PXO/OUAL / SOURCE/ AL  OCOUT / PROCC  ONP 
631 IOPXO/OUAL /SOURCE/ ALOCOUT /SEC  CALC 
63 1I0PX0/0UAL/ SOURCE/ ALOCOUT /SEE  INPUT 
631 IOPXO/OUAL/ SOURCE/ ALOCOUT /VAL 
631 IOPXO/OUAL / SOURCE/ AL  OCOUT / VNAR6 
631 IOPXO/OUAL/ SOURCE/ ALOCOUT /UEP6ET 
ASGSET,  OFFSET 
NAP, XRCF, DECK 
02,35k, ,30k 

C*,W,S,631 I OPXO/OUAL/OBJECT/ ASGSET 
631 IOPXO/OUAL /SOURCE/ ALOCOUT /SUNPRN 
NINIO, ASGSET 
NAP, XRE  F, DECK 
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SCLCCT 

LINK 
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SCLCCT 

SCLCCT 

SCLCCT 
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C*,M,S,431  IRPXO/DUAL/OR  JECT/NINIO 
43 1 IRPXO/RUAL/ SOUR CC/ALOCOUT/HIN l OUT 
4  3 1 1RPXO/RUAL /SOURC  E/  Al  OCOUT  /  T INDT  I  HE 
431 IRPXO/RUAL/ SOURC  E/AL  OCOUT /  INP  ORN 
NO  RULE*  46IS  CL 
NO ST » NOROLC 
RECK# NAN# KRC T 
05,40K,,J5k 

C*.M,$,431  IRPXO/RUAL/ OR /EC  T/ POSTAL  OC 
431 IRPXO/RU*l/ SOURC  E/PO  STALOC/POSTALOC 
43 1 1RPXO/RUAL/ SOURC  E/PO  S TALOC /6E  NR At  R 
431 IRPXO/RUAL /SOURC E/POS TALOC /6ETG ROUP 
431  IRPXO/RUAL  /  SOURC  E/PO S TALOC  /GE  TSORT 
431 IRPXO/RUAL/ SOURC E/POSTALOC /PA ER AIR 
43 1 IRPXO/RUAL /SOURC E/PO S TALOC /OUTS RT 
431 IRPXO/RUAL/ SOUR CC/POSTALOC /PR  IN TI T 
431  IRPXO/RUAL/ SOURC E/POS TALOC /PRNT  F 
431IRPX0/RUAL/ SOUR  CC/POSTALOC /SETT  LAG 
RECK# NAP #XRC T 
03  #43k##?SK 

C*«H«  S.431  IRPXO/RUAL /OR  J  EC  T/ POSTAL  02 
431 IRPXO/RUAL/ SOURCE /POSTALOC/CE NT ROIR 
431IRPX0/RUAL/S0URCC/P0STAL0C/CNCPLAN 
43 1 1RPXO/RUAL/ SOUR  CE/POS  TALOC /CORRPARH 
431 IRPXO/RUAL/ SOURCE/ POS TALOC /RITE 
431 IRPXO/RUAL /SOUR CE/POS TALOC /RUNPSRT 
43  1IRPX0/RUAL/ SOUR CC/POS TALOC /EVALR 
431 IRPXO/RUAL/ SOURCC/POSTALOC/EVALOA 
431  IRPXO/RUAL /SOURC E/POS  TALOC /EVALOB 
43 1  IRPXO/RUAL  /  SOUR  CC/POS  TALOC /riTPL  AN 
431  IRPXO/RUAL  /  SOUR  CC/POS  TALOC  /PL  TROUTE 
431 IRPXO/RUAL/ SOUR CC/POS TALOC /IN  I TOPT 
431 IRPXO/RUAL / SOURCE /POS TALOC /INP0T6T 
431  IRPXO/RUAL /SOUR CE/POS TALOC /NE XT PLT 
43 1 IRPXO/RUAL/ SOUR CC/POS TALOC /NOCORR 
431 IRPXO/RUAL / SOURC E/PO  S  TALOC /OPTR  AI R 
4 31 IRPXO/RUAL/ SOUR CC/POS TALOC /OUTPOTGT 
431 IRPXO/RUAL/ SOURC E/PO STALOC /SORT  OPT 
431 IRPXO/RUAL/ SOUR CC/POS TALOC /TSTA S6N 
NO  RULE*  POST 
TOOT* NO RULE 
RECK, NAP, IREf 

01,A0k,-ak,iSk 

C  * ,H, S, 431 IRPXO/RUAL/ OR/ EC T/P  OOT  PR  NT 
431 IRPXO/RUAL/ SOURCE/ POOTPRNT/POOT PRNT 
OPTS 

RECK#NAP,XREP 

01,«0P#-AK,13K 

C *  ,W, S, 431 IRP  XO/RUAL/OR/ECT/FOOT OPTS 
431 IRPXO/RUAL/ SOUR CE/POOTPRNT/TARLINPT 
431 IRPXO/RUAL/ SOJRCE/FOOTPRNT/NK AOS 
431 IRPXO/RUAL/ SOJRCC/POOTPRNT/PRAOS 
43 1IRPX0/RUAL/ SOURCE/ POO TPRNT /PR  INSETS 
43 1 1RPX0/RURL/ SOURCE /POOTPRNT /TAOS 
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LINK  SETS/ OPTS 
FORTY  IICK/IUMMF 
UNITS  01  /A3K/-4K.15K 

PRNFL  C *  /H/ S/631 10P< O/OUAL/OB JECT/FOOTSE T$ 
SELECT  631IOPXO/BUAL/SOURCE/FOOTPRNT/NEUCOOR 
SELECT  631 I0PX0/DUAL/ SOURCE/ FOOTPRNT /SETDATA 
LINK  PLAN/SETS 
FORTY  OECK/NAP/XREF 
UNITS  01/43K/-4K/1SK 

PRNFL  -  C*  /W/S/631 lOPXO/DUAL/OBJECT/F OOTPL AN 
SELECT  63 110PXO/DUAL/ SOURCE/ FOOTPRNT /AXES 
SELECT  631 I6PXO/6UAL/ SOURCE/ FOOTPRNT /DRIVER 
SELECT  .631 16PX0 /DUAL /SOUR C E  / F  OOTPRNT  /  ELLIPSE 
SELECT  '63 IIDPXO/DUAL/ SOURCE /FOOTPRNT /PATH  FIND 
SELECT  631 1 DPXO/DUAL/ SOUR C  E /F  OOTPRNT / XA  OS 
LINK  ASGH/PLAN 
FORTY  OECK/NAP/XREF 
LINITS  01/*0K/-*K,15K 

PRNFL  C* /H/ S/631 IDPXO/DUAL/OO JECT/ FOOT AS6N 

SELECT  631 IDPXO/DUAL/ SOURCE/F  OOTPRNT /HI SAS6N 

LINK  NODULE/FOOT 

LINK  NO UNP /NODULE 

FORTT  HAP/X RE  F /DECK 

LINITS  01/30K/-AX/1SK 

PRNFL  C»/U/S/631 IDPXO/DUAL/OBJECT/NIRVOUNP 
SELECT  631 IDPXO/DUAL/ SOURC E/Nt RVOUNP /NI RVDUNP 
SELECT  631 IDPXO/DUAL/ SOURC E/HIRV6UNP/6ETGT 
SELECT  631IDCRO/DUAL/SOURCE/NIRVDUHP/NEHCORD 
SELECT  63 IIDPXO/DUAL/ SOURCE/NI RVOUNP /DRIVER 
SELECT  631 ID PXO /DUAL /SOURCE/NI RVOUNP/CONBO 
SELECT  63 1 1DPXO/DUAL/ SOURC  E/N I RVOUNP /FOOT  CHt K 
SELECT  63 1 IDPXO/DUAL/ SOURCE/ FOOTPRNT /SE TO AT A 
SELECT  631 IDPXO/OUAL/ SOURCE/F  OOTPRNT /AXES 
SELECT  63 1 IDPXO/DUAL /SOURCE/ FOOTPRNT /XAOS 
LINK  NODULE/NDUNP 

LINK  .  PLANO /NODULE 
FORTT  NAP/XREF/OECK 

PRNFL  C*/H/$/631 I DPXO/DUAL/ OB J EC T/ PLANO 
SELECT  6 31 IDPXO/DUAL/ SOURCE/ PL ANOUT/PLANOUT 
SELECT  631 IDPXO/DUAL / SOURCE/PL  ANOUT / CL I  NO AT  A 
SELECT  631 IDPXO/DUAL /SOURC E/PL ANOUT /6E06ET 
SELECT  651 IDPXO/DUAL/ SOURCE/PL ANOUT /SNAPC ON 
SELECT  63 1 1DPXO/DUAL/ SOURCE/PI ANOUT /HEP  OAT* 
LINK  PLNT 

LINITS  03/39K//15K 
FORTT  NAP/XREF/OECK 
LINITS  20/A0K//A3K 

PRNFL  C* /H/ S/631 lOPXO/DU AL/OS  JECT/ PINT 
SELECT  63 1IBPXO/DUAL/ SOURCE/ PL  ANOUT /PLNTPL  AN 
SELECT  63 1IDPXO/OUAL/ SOURC E/PL ANOUT /ALTPL AN 
SELECT  631  IDPXO/DUAL /SOURCE/ PL  ANOUT /ADJUST 
SELECT  631I0PX0/DUAL/ SOURC E/PL ANOUT /ALT  ERR 
SELECT  63 IIDPXO/DUAL /SOURCE/PL ANOUT /CHGT IN 
SELECT  63 1 1DPXO/DUAL  /  SOURC  E/PL  ANOUT /DECOY  ADO 
SELECT  631 IDPXO/OUAL/ SOURCE/PL ANOUT /DIS TINE 
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SELECT  63 1 lOPXO/OUAL /SOURCE /PL ANOUT /FINONS 
SELECT  63116PXO/OUAL/SOURCE/PLANOUT/FLTSORT 
SELECT  631 lOPXO/OUAL/SOURC E/PL ANOUT/ FLY POINT 
SELECT  63 IIBPXO/OUAL/ SOU*  C £/ PL ANOUT / t MI  TANK 
SELECT  631 lOPXO/OUAL/ SOU* CE/PL ANOUT /KERPLUNK 
SELECT  631 lOPXO/OUAL/ SOURCE/PL ANOUT /LAUNCH 
SELECT  63 1 16RX0/6UAL / SOU*  C  E /PL ANOUT /LNCH6 AT  A 
SELECT  6 31  l»PXO/»U*L/ SOURCE/PL  ANOUT /PLAN 
SELECT  631 lOPXO/OUAL/ SOURCE/ PL ANOUT / PLANO OMR 
SELECT  63 1 1 RPXO/OUAL/ SOURCE/ PL  ANOUT /PLANTNIS 
SELECT  631 lOPXO/OUAL/SOURCE/PL ANOUT /POST 
SELECT  631 lOPXO/OUAL/ SOURCE/ PL  ANOUT /POS  TL  AUN 
SELECT  631 lOPXO/ftUAL /SOU*  C  E/PL  ANOUT / SNAP  1 T 
SELECT  631  lOPXO/OUAL/SOURC  E/PL  ANOUT /SNAPOUT 
SELECT  631  lOPXO/OUAL/ SOURCE/ PL  ANOUT /SOROONO 
SELECT  631 lOPXO/OUAL /SOURCE/PL ANOUT /SUT CM ALT 
LINK  INTRfPLNT 
FORTY  MAP.XRE F.DECK 

PRNFL  C»,M»S»6311DPXO/DUAL/OBJECT/INT* 
SELECT  631 I6PX0/0UAL/ SOURCE/PL ANOUT /INTRF ACE 
SELECT  631 lOPXO/OUAL/SOURCE/PL ANOUT/ ABOUT 
SELECT  631 10 PX O/DUAL/ SOURCE /PL ANOUT /FINRTINE 
SELECT  63 1I0PX0/BUAL/ SOURCE/ PL ANOUT/ I AZIN 
SELECT  631IRPXO/OUAL/ SOU* CE/PL ANOUT /tFSET 
SELECT  63 1 lOPXO/OUAL/SOURC E/ PL ANOUT / I FUNC T 
SELECT  631 lOPXO/OUAL/SOURCE/PL ANOUT/ INFORM 
SELECT  631I0PX0/0UAL/ SOURCE /PL ANOUT /NOP 
SELECT  631 lOPXO/OUAL/SOURCE/PL  ANOUT / PON TOFFS 
SELECT  6311OPX0/OUAL/ SOURCE/PL  ANOUT /ROCLAUSE 
SELECT  631 lOPXO/OUAL /SOU* CE/PL ANOUT / STOUT 
SELECT  631 lOPXO/OUAL / SOURCE/ PL ANOUT / XSE  T 
LINK  TANK*  INTO 
FORTY  NAP.XRfF.OECK 

PRNFL  C«  .W.S.631 iopxO/oual/object/t ank 

SELECT  631 lOPXO/OUAL/SOURCE/PL ANOUT /PLANT ANK 

SELECT  631 lOPXO/OUAL/ SOURCE/PL ANOUT /P*N TAB 

SELECT  631 lOPXO/OUAL /SOURCE/PL ANOUT /VAN 

LINK  HODUL  £.  PLANO 

LINK  OH  AKE. NODULE 

FORTY  HAP.XREF.DECK 

LIMITS  01 »3S  K»  #1 7K 

PRNFL  C«,W»S# 631 lOPXO/OUAL/ OB J ECT / 0 ATANAKE 
SELECT  631 IOPXO/OUAL/SOUR CE/PL ANSET/ DAT ANAKE 
SELECT  631 lOPXO/OUAL / SOURCE/ INOEXE* / CRTBL  E 
SELECT  631 IOPXO/OU*L/ SOURCE/ INOExE R / CONPL  EX 
SELECT  631  lOPXO/OUAL /SOUR  CE/PL  ANSET /CAL  COMP 
SELECT  631 It PXO/OUAL/ SOURCE/ PL  ANSE  T / SRT  T6T 
LINK  HOOULE.OI1AKE 
ENOJOB 
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APPENDIX  C 


PERFORM  PROGRAM 


This  appendix  contains  maintenance  Information  for  the  PERFORM  program. 
PERFORM  is  an  online  program  designed  to  generate  remote  job  entry  jobs 
for  the  QUICK,  system. 


C.l  Purpose 


PERFORM  is  an  online  Interactive  program  which  creates  a  file  of  Job 
Control  Language  (JCL)  according  to  user  directions.  This  file  of  JCL 
may  be  set  up  to  perform  any  combination  of  the  following  functions: 

•  Run  QUICK 

•  Initialize  the  I-D-S  Data  Base 

e  Recompile  and  recreate  the  QUICK  utility  subroutine  library 
e  Recompile  a  module  of  QUICK. 


C.2 


PERFORM  is  an  interactive  system  and,  therefore,  obtains  part  of  its 
input  from  user  responses  from  the  terminal.  PERFORM  also  has  three 
files  which  it  uses  to  build  the  job  stream  JCL  and  a  set  of  object 
(CANOF)  and  source  (NEWCANOF)  files  which  are  used  to  select  required 
source  and  object  programs. 

The  file  names  for  these  files  are  slightly  different  in  the  production 
and  development  systems.  Source  decks  are  only  contained  in  the  develop¬ 
ment  system.  File  names  for  the  production  system  (UMC  63AIDP00)  are 
used  whenever  the  appropriate  file  exists  on  the  production  system. 
Otherwise,  the  file  name  from  the  development  system  (UMC  631IDPX0) 
is  used.  Both  the  production  and  development  systems  include: 


e  A  set  of  files  each  of  which  contains  the  JCL  required  to  define 
a  module  and  its  linkage  from  object  files.  These  files  are 
under  the  catalog  UMC/QUIK/COP/CANOF. 

•  A  set  of  files  each  of  which  contains  the  JCL  required  to  define 
a  module  and  its  linkage  from  source  files.  These  files  are 
•  •  •  •  -uoden-the-  catalog  -63-1IDPXO/DUAL/COP/NEWCANOF  only  (l.e.«,not.  ,  .  , 

on  production  system) . 
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•  A  file  (UMC/PERFORM/VRBLIM)  which  details  the  various  required 
limits  for  the  system  and  which  contains  one  record  for  each 
legal  verb. 

-  Column  1-8  Verb  Name 

-  Column  9-11  Maximum  CPU  Time 

-  Column  12-14  Maximum  Core  Requirements 

-  Column  15-17  Maximum  Lines  of  Output 

•  A  file  (UMC/PERF0RM/IDENT2)  which  details  the  currently  recog¬ 
nized  users  of  the  QUICK  system.  It. also  contains  information 
concerning  the  data  files  accessed  by  these  users.  For  each 
user,  the  file  contains  two  records  plus  additional  records 
equal  to  the  number  of  data  files  used. 

Record  1 

Column  1-12  USERID 

Column  13-24  Name  used  in  PERFORM  interactive  output 

Column  25  Number  of  files  used 

Column  26  User  salutation  parameter: 

1  -  Salutation  suppressed 

2  -  Salutation  activated 

Record  2 

Column  1-48  IDENT  card  for  user 

Record  3  and  following 

Column  1-4  Source  subcatalog  name  (i.e.,  TEST,  DUAL, 

QUIK) 

Column  5-8  Number  of  pages  in  data  file 

Column  9-32  Data  file  name 

•  A  file  (UMC/PERFORM/SPFILE)  which  details  an  additional  file 
whose  description  must  be  added  to  those  normally  found  in  the 
JCL.  These  descriptions  are  related  to  the  verbs  which  the 
user  has  specified.  Each  additional  file  has  one  record. 

Column  1-8  Verb 

Column  9  Blank 

Column  10-11  File  code 

Column  12  R  for  input  file 

W  for  output  file 

Column  13-48  Description  of  file  used  in  PERFORM 
output 
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C. 3  Concept  of  Operation 

PERFORM  follows  a  series  of  steps  at  user  direction.  For  details  of  the 
question  and  answer  sequences,  see  CSM  DM  9-77,  Volume  I.  Based  on  the 
selected  value  of  MODE,  PERFORM  generates  JCL  for  the  job  stream  by  adding 
a  series  of  file  names  from  the  appropriate  /CANOF  and/or  /NEWCANOF  cata¬ 
logs.  The  RUN  mode  adds  RESTORE  or  SAVE  records  to  file  THEJOB  as  desired. 
It  then  adds  the  standard  CANOF  catalog  files  required  by  all  QUICK  runs 
and  the  additional  CANOF  files  requested  by  the  user.  The  CANOF  files 
contain  a  list  of  object  decks  required  to  execute  the  desired  modules. 

The  user  then  supplies  a  list  of  the  verbs  being  used.  From  this  list, 
PERFORM  uses  the  information  stored  on  file  VRELIM  to  compute  the  LIMITS 
card  parameters.  The  user  may  alter  these.  The  user  is  then  requested 
to  add  data  files  and/or  lines  of  input.  Then  the  SPFILE  is  consulted  to 
see  if  the  user  desires  any  special  files.  Finally,  the  LIMITS  and  other 
final  cards  are  added  and  the  user  is  instructed  how  to  submit  the  job. 

For  INITIALIZE  mode,  an  activity  initializing  the  I-D-S  data  file  is 
added  to  THEJOB.  The  program  then  continues  in  the  RUN  mode. 

The  COMPILE  mode  adds  NEWCANOF  catalog  files  to  file  THEJOB  for  the  modules 
selected  for  recompiling.  Two  modules  (ALOC  and  PLANOUT)  have  been 
divided  into  submodules  for  compilation  purposes.  The  submodule  names  are 
displayed  to  the  user  when  the  basic  module  is  encountered.  NEWCANOF 
records  are  added  to  file  THEJOB  for  the  selected  submodules. 

Upon  completion  of  the  COMPILE  mode,  the  user  is  asked  if  the  RUN  mode  is 
also  desired.  If  so,  additional  modules  required  for  the  run  are  added 
to  file  THEJOB  as  described  in  the  RUN  mode  discussion. 

If  the  COMPILE  mode  contained  a  submodule  NEWCANOF,  CANOF  records  for  all 
other  submodules  are  added  to  THEJOB  to  provide  a  complete  set  of  object 
decks  for  that  module. 


C.4  Major  Subroutines 

PERFORM  has  two  subroutines.  READIN  scans  user  input  and  converts  any 
lower  case  ASCII  letters  to  upper  case  ASCII  letters.  IDENT  builds  the 
job  stream  IDENT  card  and  selects  the  desired  data  base  file. 


C.5  Conmon  Blocks 


«V 


PERFORM  has  only  one  common  block,  LINE.  This  block  contains  the  array 
LINE(80)  which  is  used  to  comnunlcate  with  subroutine  READIN.  Each  word 
of  LINE  contains  one  character  of  input.  •  . 
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C.6  Program  PERFORM 


PURPOSE :  To  build  JCL  through  online  interaction 

ENTRY  POINTS;  . 


FORMAL  PARAMETERS:  None 

COMMON  BLOCKS;  LINE 


SUBROUTINES  CALLED:  READ IN,  I DENT,  WRIDEN,  FILSEL 

CALLED  BY:  Compiled  by  TSS  subsystem  YFORT 

Entered  through  TSS  subsystem  RUNY 

Method : 

First,  file  THEJOB  Is  attached  and  the  IDENT  card  with  proper  disposition 
and  urgency  is  added  to  it.  Next,  the  mode  is  requested.  If  a  reply 
other  than  COMPILE  is  entered,  a  transfer  is  made  to  statement  260  (figure 
197) .  If  the  reply  is  COMPILE,  the  program  asks  if  TEST  or  DUAL  catalog 
is  desired.  The  proper  version  of  common  block  C30  is  then  transferred 
to  the  program  storage  file  for  C30. 


The  program  then  asks  for  the  list  of  modules  to  be  recompiled.  A  reply 
of  HELP  will  list  the  modules.  A  key  is  set  for  each  prestored  module 
selected.  If  the  module  name  is  not  prestored,  the  user  is  asked  if 
recompilation  of  the  unknown  module  is  desired.  If  it  is,  the  module 
name  is  stored  and  the  corresponding  key  is  set.  Modules  ALOC  and  PLANOUT 
have  been  divided  into  submodules  for  compilation  purposes.  When  one  of 
these  is  encountered,  a  list  of  the  submodules  for  the  module  is  displayed 
and  the  user  specifies  which  are  to  be  recompiled.  Another  set  of  keys 
is  used  to  store  this  information. 


After  all  information  for  the  COMPILE  mode  has  been  entered,  the  user  is 
asked  if  the  RUN  mode  is  desired.  If  RUN  mode  is  desired,  instructions 
starting  with  statement  260  are  executed.  If  only  the  COMPILE  mode  is 
requested,  a  transfer  is  made  to  statement  365.  Statements  365  through 
430  write  the  selected  files  to  file  THEJOB  based  on  the  previously 
stored  keys.  In  this  case,  all  files  would  be  from  the  NEWCANOF  catalog. 
A  transfer  is  then  made  to  statement  660  where  termination  of  the  job  is 
accomplished . 

Statement  260 


A  call  is  made  to  the  FILSEL  entry  in  subroutine  IDENT  to  retrieve  the 
appropriate  data  base  file  and  its  characteristics.  If  the  mode  is  not 
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Figure  197.  (Part  2  of  18) 
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Figure  197.  (Part  9  of  18) 


Figura  197.  (Part  10  of  18) 


919 


Figure  197.  (Part  11  of  18) 
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Figure  197.  (Pert  18  of  18) 


INITIAL,  a  transfer  Is  made  to  statement  270.  The  INITIAL  mode  writes 
to  THEJOB  file  the  JCL  required  to  initialize  the  selected  I-D-S  data 
base.  A  transfer  is  then  made  to  statement  280. 

Statement  270 

Statement  270  clears  the  screen  prior  to  executing  statement  280. 
Statement  280 


The  user  can  select  a  preexecution  RESTORE  or  SAVE  of  the  I-D-S  data 
base.  If  neither  are  desired,  a  transfer  is  made  to  statement  300.  A 
parameter  card  containing  the  required  tape  number  and  the  appropriate 
$  SELECT  card  are  written  to  THEJOB  file  if  SAVE  or  RESTORE  are  selected. 
Statement  300  is  then  executed. 

Statement  300 


If  the  COMPILE  and  RUN  options  have  been  selected,  the  user  is  asked  to 
input  any  other  modules  needed  in  addition  to  those  entered  in  the  COMPILE 
mode.  If  only  the  RUN  mode  was  selected,  the  user  is  asked  to  input  the 
required  modules.  A  response  of  HELP  will  result  in  a  listing  of  the 
stored  modules  which  can  be  selected. 

An  appropriate  key  is  set  to  indicate  the  desired  modules.  A  key  is  also 
set  for  the  three  modules  required  on  every  QUICK  run.  If  a  new  module 
is  encountered,  the.  user  will  be  asked  to  verify  if  the  module  is  desired, 
the  key  will  be  set,  and  the  module  name  will  be  stored.  Only  three  new 
names  can  be  entered  from  the  COMPILE  section  and  the  RUN  section  during 
any  single  run.  The  required  JCL  for  both  the  COMPILE  and  the  RUN  modes 
is  then  written  to  THEJOB  starting  at  statement  360. 

Statement  360 

The  keys  for  each  module  (stored  and  added)  are  checked  and  based  on  the 
value  of  the  key,  a  CANO?  or  NEWCANOF  catalog  file  string  is  written  to 
THEJOB  file.  If  the  AL0C  or  PLAN0UT  modules  were  selected  during  the 
COMPILE  phase,  NEWCANOF  catalogs  are  used  for  the  submodules  selected 
for  compilation  and  CAN0F  modules  are  used  for  all  of  the  other  submodules 
in  the  requested  module.  At  statement  430,  a  transfer  is  made  to  state¬ 
ment  660  if  the  COMPILE  mode  has  been  selected. 

Statement  430 

The  standard  FORTRAN  execution  JCL  and  the  basic  file  definition  for  the 
QUICK  system  are  then  written  to  THEJOB  file.  A  JCL  card  for  the  data 
base  is  output  -to  THEJOB  file.  Statement  440  is  then  executed. 
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Statement  440 


The  VRBLZM  file  is  attached,  read  in,  and  detached.  The  user  then  inputs 
a  list  of  the  desired  verbs.  If  the  reply  is  HELP ,  the  legal  verbs  are 
listed.  The  program  then  calculates  the  run  limits.  The  limits  are 
displayed  and  the  user  is  given  the  opportunity  to  change  them.  Next, 
the  user  is  asked  to  input  data  file  names.  Each  file  name  is  added  to 
THEJOB.  When  the  reply  DONE  is  encountered,  the  user  is  asked  if  addi¬ 
tional  data  are  desired.  If  so,  the  user  is  asked  to  input  card  Images 
which  are  added  to  THEJOB.  When  a  blank  card  is  input,  the  user  is  asked 
if  additional  files  are  desired,  and  if  so,  control  returns  to  the  input 
of  data  files. 

When  no  more  input  is  desired,  the  program  reads  file  SPFILE  for  any 
special  files  that  the  input  verbs  may  require.  The  user  is  asked  to 
select  the  JCL  format  for  any  such  special  file.  The  terminal  part  of 
the  program  (statement  640)  is  then  executed. 

Statement  640 

e  *  .  .  .  • 

The  LIMITS  card  and  the  standard  QUICK  temporary  files  are  written  to 
THEJOB  file.  The  user  is  then  asked  if  a  postexecution  save  of  the 
I-D-S  data  base  is  desired.  If  a  save  is  required,  a  parameter  card  con¬ 
taining  the  reel  number  of  the  save  tape  and  a  SAVE  card  is  written  to 
THEJOB  file.  Statement  660  is  then  executed. 

Statement  660  • 


The  $  END JOB  card  is  placed  on  THEJOB  file.  The  key  parameters  of  the 
completed  job  stream  JCL  are  displayed  for  the  user  with  instructions 
on  how  to  execute  the  job.  A  call  is  then  made  to  the  CALLS S  system  and 
CARDIN  is  entered  to  facilitate  running  the  job. 

/ 


921 


CH-3 


C.7  Subroutine  READIN 


PURPOSE: 

To  convert 

letters  from  lower  case  to  upper  case 

ENTRY  POINTS: 

READIN 

FORMAL  PARAMETERS: 

V: 

FLAG: 

Variable  In  which  first  eight  characters 
may  be  returned 

■1 ,  return  first  eight  characters  in  V 
^1,  do  not  alter  V 

COMMON  BLOCKS: 

LINE 

SUBROUTINES  CALLED: 

NONE 

CALLED  BY: 

PERFORM 

Method; 

LINE  Is  filled  froa  the  user  input  replay.  Each  character  Is  then  exam¬ 
ined  and  converted  to  uppercase  if  it  is  lowercase.  FLAG  is  checked 
and  if  equal  to  1,  the  first  eight  positions  of  LINE  are  encoded  into  V. 

Subroutine  READIN  is  Illustrated  in  figure  198. 
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Figure  198.  Subroutine  READIN 
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C.8  Subroutine  IDENT 


PURPOSE;  To  build  the  JCL  file  IDENT  card  and  maintain  the 

1DENT2  file.  Entry  point  WRIDEN  writes  the  IDENT 
card  and  Entry  FILSEL  selects  the  data  base. 

ENTRY  POINTS:  IDENT,  WRIDEN,  FILSEL 

i 

FORMAL  PARAMETERS:  WHO:  Name  of  user  used  in  terminal  output 

FILE:  Catalog  file  string  of  I-D-S  data  file 
CAT:  Subcatalog  for  program  source 

SIZE:  Size  of  I-D-S  file  in  pages 

COMMON  BLOCKS:  NONE 

SUBROUTINES  CALLED:  USRCOD 

CALLED  BY:  PERFORM 

Method: 

First  the  system  subroutine  USRCOD  is  called  to  obtain  the  USERID  with 
which  the  user  signed  onto  the  system.  This  is  compared  with  the  list 
of  USERIDs  found  on  file  UMC/PERF0RM/IDENT2.  If  found,  the  informa¬ 
tion  on  IDENT2  is  used  to  construct  a  $  IDENT  card  for  the  JCL  file 
THEJOB.  The  other  information  needed  for  the  parameters  which  are 
returned  (i.e.,  WHO,  FILE,  CAT,  and  SIZE)  is  also  obtained  directly  from 
the  IDENT2  file.  In  the  process,  the  user  may  be  asked  to  select  from 
several  possible  data  files.  Selection  of  these  files  is  accomplished 
by  the  subroutine  FILSEL  which  is  called  by  PERFORM. 

If  the  USERID  does  not  appear  on  IDENT2,  a  series  of  questions  and 
answers  is  used  to  build  a  new  file  entry  before  processing  continues. 

Subroutine  IDENT  is  illustrated  in  figure  199. 
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